Question

我在R中有一个ggplot2的问题。我可以用ggplot2绘制两行，如何为每行中的不同部分设置不同的颜色？

我为B1_UNAV和B1_CNAV绘制了两行，对于这两行，还有两种类型：0和11。如何为每种类型设置不同的颜色？我写了一些代码：

library(ggplot2)    
p <- ggplot(data = B1.m, mapping = aes(x = as.Date(B1.m$B1_Date, format='%d/%m/%Y'), y = B1.m$B1_Value, color = B1.m$B1_Type)) + geom_line()
p <- p + labs(x = "Date", y = "Value") + labs(color = "Value Type")

似乎color中的aes已经为B1_UNAV和B1_CNAV分隔了两行。如何使用不同的线条颜色分隔0和11类型？ **关键是我希望在同一行的不同部分有不同的颜色（这意味着两行，可能会有更多的分类。）**我的数据如下：

B1.m <- structure(list(B1_Date = structure(c(8L, 3L, 1L, 10L, 9L, 7L, 
6L, 5L, 4L, 2L), .Label = c("01/06/2018", "08/05/2018", "08/06/2018", 
"09/05/2018", "10/05/2018", "11/05/2018", "14/05/2018", "15/06/2018", 
"18/05/2018", "25/05/2018"), class = "factor"), B1_Value = c(1.033, 
1.032, 1.0322, 1.0319, 1.0299, 1.0302, 1.03, 1.0299, 1.0297, 
1.0299), NewGroup = c(" 0_B1_UNAV", " 0_B1_UNAV", " 0_B1_UNAV", 
" 0_B1_UNAV", " 0_B1_UNAV", "11_B1_UNAV", "11_B1_UNAV", "11_B1_UNAV", 
"11_B1_UNAV", "11_B1_UNAV")), .Names = c("B1_Date", "B1_Value", 
"NewGroup"), row.names = c(NA, 10L), class = "data.frame")

Answer 1

如果您想按jar { from { configurations.compile.collect { it.isDirectory() ? it : zipTree(it) } } manifest { attributes( 'Class-Path': configurations.compile.collect { it.getName() }.join(' '), 'Main-Class': "play.MainKt" ) } }和0类型而不是 11和B1_UNAV划分您的情节，只需将您的美学论点更改为B1_CNAV {并从color = B1_PR内的参数中移除B1.m，如下所示：

aes

另一方面，如果您想要根据p <- ggplot(data = B1.m, mapping = aes(x = as.Date(B1_Date, format='%d/%m/%Y'), y = B1_Value, color = B1_PR)) + geom_line()和B1_Type的组合创建分组，那么您需要创建一个新的分组因子，并设置{{ 1}}论证。这样的事情应该可以创建一个新的分组因素：

B1_PR

ggplot2

1 个答案: