r - 如何创建不同颜色的 fiddle 图？

Question

我正在使用包 vioplot .我想问一下，我怎样才能创建不同颜色的 fiddle 图。

这是我的可重现示例:

# Violin Plots library(vioplot) 
x1 <- mtcars$mpg[mtcars$cyl==4] 
x2 <- mtcars$mpg[mtcars$cyl==6] 
x3 <- mtcars$mpg[mtcars$cyl==8] 
vioplot(x1, x2, x3, 
names=c("4 cyl", "6 cyl", "8 cyl"), col="gold") 
title("Violin Plots of Miles Per Gallon")

谢谢你。

Answer 1

不可能有多种颜色。但是破解功能不难vioplot并编辑源代码。您应该遵循以下步骤来完成此操作:

复制初始函数:

 my.vioplot <- vioplot()

编辑此功能:

 edit(my.vioplot)

搜索单词“polygon”并将 col 替换为 col[i]

在函数开始时为你给出单一颜色的情况做一个测试。并添加这一行:

 if(length(col)==1) col <- rep(col,n)

例如使用您的数据:

vioplot(x1, x2, x3, names=c("4 cyl", "6 cyl", "8 cyl"), col="gold") 
title("Violin Plots of Miles Per Gallon") 

my.vioplot(x1, x2, x3, names=c("4 cyl", "6 cyl", "8 cyl"), col=c("gold","red","blue")) 
title("Violin Plots of Miles Per Gallon multi colors")