1000论坛币求作一个图

1. ggplot(b) +
   
2.   geom_tile(aes(x = Name, y = Year, fill = Val)) + # main body -- tiles
   
3.   geom_segment(data = horizonSegment, aes(x = x, y = y, xend = xend, yend = yend)) + # horizongrid
   
4.   geom_segment(data = verticalSegment, aes(x = x, y = y, xend = xend, yend = yend)) + # verticalgrid
   
5.   geom_segment(data = classSegment , aes(x = x, y = y, xend = xend, yend = yend)) + # segment of classes
   
6.   geom_segment(data = classTail, aes(x = x, y = y, xend = xend, yend = yend)) + # short segment tails
   
7.   annotate("text", x = c(3, 11, 27, 40), y = 2014, label = LETTERS[1:4]) + # annotate the classes
   
8.   annotate("text", x = " ", y = 2004:2013, label = as.character(2004:2013)) + # annotate the year
   
9.   ylim(c(2000, 2016)) + # start from 2000 to make a white circle in the middle
   
10.   labs(x = NULL, y = NULL) + # remove axis titles
    
11.   scale_fill_gradient(high = "#F77400", low = "yellow", na.value = "white") + # adjust the colors
    
12.   theme_classic() + theme(axis.line = element_blank(), axis.text.y = element_blank(), axis.ticks = element_blank(), legend.position = c(0,1)) +
    
13.   coord_polar(theta = "x", start = pi/360*9.5)

复制代码

晕他自动给我换了个逗号，你换成英文的逗号，或者运行上面这个。

zerofung 发表于 2017-5-24 23:22
晕他自动给我换了个逗号，你换成英文的逗号，或者运行上面这个。

非常感谢！确实如此，我刚才照着运行了一遍您的代码，也出来与您一样的结果了。
为了表示感谢，您能否随便发一个帖子，附上一个附件，让我来购买。因为我不知道该以怎样的方式，给您论坛币。

谢谢你，其实我在这个过程也学到很多，共同进步哈！（下面的附件你酌情下载就好，不一定需要两个都下载的）

zerofung 发表于 2017-5-25 12:02
谢谢你，其实我在这个过程也学到很多，共同进步哈！（下面的附件你酌情下载就好，不一定需要两个都下载的）

好的，那我就买一个吧。您是否已经收到？谢谢您

tmdxyz 发表于 2017-5-25 14:51
好的，那我就买一个吧。您是否已经收到？谢谢您

收到啦谢谢

根据上面的额代码，我也画出来了

599133372 发表于 2017-5-30 16:58
根据上面的额代码，我也画出来了

是啊，真不错。不过有网友在如下的帖子（第10楼）里展示了另外一种画法，你可以尝试一下。我依照他的code，只可惜还是没有办法画出来。你要是实现了，麻烦你告诉一声
https://bbs.pinggu.org/forum.php?mod=viewthread&tid=5536661&from^^uid=563172

cheetahfly 发表于 2017-5-22 10:20
水平所限，逐渐试错拼凑出的来的。
首先，数据放在变量a中，数据变形的过程就不啰嗦了，最终变成了tidy da ...

您好，我也想画这个图，但是数据行数和他不一样，用了您的代码，小方块填充只填充了一半。请问哪一句代码可以改变这个情况呢？