小编tkv*_*ran的帖子

希望这里的某个人能够帮助我解决我正在尝试使用ggplot脚本的问题.该脚本将多次使用不同的数据,因此需要相对灵活.我几乎把它拿到了我想要的地方,但我遇到了一个我无法解决的问题.

该脚本用于带有右边距中每一行标签的折线图.有时图表是刻面的,有时则不是.

我遇到麻烦的是,如果没有显着的变化,我想将右边缘的标签颜色编码为黑色,如果有正变化则为绿色,如果有负变化则为红色.当我只有一个方面时,我有一个可以解决这个问题的脚本,但是一旦我在图中有多个方面,标签的颜色编码就会出现以下错误

   Error: Incompatible lengths for set aesthetics:

下面是包含多个方面数据的脚本.问题似乎在于我在geom_text行中指定颜色.如果我删除脚本中geom_text行中的颜色调用,那么我会在正确的位置打印属性,而不是彩色.我真的很茫然.这是我在这里的第一篇文章,如果我的帖子出错了,请告诉我.

有多个角色(不工作)

   require(ggplot2)
require(grid)
require(zoo)
require(reshape)
require(reshape2)
require(directlabels)

time.data<-structure(list(Attribute = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 
                                                  4L, 4L, 5L, 5L, 6L, 6L), .Label = c("Taste 1", "Taste 2", "Taste 3", 
                                                                                      "Use 1", "Use 2", "Use 3"), class = "factor"), Attribute.Category = structure(c(2L, 
                                                                                                                                                                      2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("Nutritional/Usage", 
                                                                                                                                                                                                                              "Taste/Quality"), class = "factor"), Attribute.Order = c(1L, 
                                                                                                                                                                                                                                                                                       1L, 2L, 2L, 3L, 3L, 4L, 4L, 5L, …