Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/67.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 在ggplot中为组着色_R_Ggplot2_Violin Plot - Fatal编程技术网

R 在ggplot中为组着色

R 在ggplot中为组着色,r,ggplot2,violin-plot,R,Ggplot2,Violin Plot,我不熟悉R编程。 绘制ggplot时被卡住。 我希望给我的三个小组以蓝色、绿色和红色。 这是我的数据框: > print(employee_withoutEmployeeID[1:5,]) > EnvironmentSatisfaction JobSatisfaction WorkLifeBalance 1 3 4 2 2 3

我不熟悉R编程。 绘制ggplot时被卡住。 我希望给我的三个小组以蓝色、绿色和红色。 这是我的数据框:

> print(employee_withoutEmployeeID[1:5,])
> 
  EnvironmentSatisfaction JobSatisfaction WorkLifeBalance
1                       3               4               2
2                       3               2               4
3                       2               2               1
4                       4               4               3
5                       4               1               3
我尝试的是:

png(file="answer5.png")
answer5 <- ggplot(stack(employee_withoutEmployeeID), aes(x = ind, y= values) )
answer5 + geom_violin()  + scale_fill_manual(values=c("#0000FF", "#00FF00", "#FF0000")) + 
  labs(title="Answer 5", 
       subtitle="",
       caption="Answer 5",
       x="Measure",
       y="Rating")  
dev.off()
我得到我的小提琴绘图正确,但没有颜色填充。我不确定如何以及在何处使用天平填充手册
请建议您需要定义要填充的变量。stack函数将把ind列添加到input data.frame中,因此我将fill=ind添加到aes选项中

answer5 <- ggplot(stack(employee_withoutEmployeeID), aes(x = ind, y= values, fill=ind) )
answer5 + geom_violin()  + scale_fill_manual(values=c("#0000FF", "#00FF00", "#FF0000")) + 
   labs(title="Answer 5", 
        subtitle="",
        caption="Answer 5",
        x="Measure",
        y="Rating")  

您需要定义要填充的变量。stack函数将把ind列添加到input data.frame中,因此我将fill=ind添加到aes选项中

answer5 <- ggplot(stack(employee_withoutEmployeeID), aes(x = ind, y= values, fill=ind) )
answer5 + geom_violin()  + scale_fill_manual(values=c("#0000FF", "#00FF00", "#FF0000")) + 
   labs(title="Answer 5", 
        subtitle="",
        caption="Answer 5",
        x="Measure",
        y="Rating")  
需要在geom_小提琴中指定填充美学:

需要在geom_小提琴中指定填充美学: