Мой график скрипки выдает ошибку, когда все значения в ряду одинаковы.
library(ggplot2)
d1 <- data.frame(x=c("a","a","a","b","b","b"),y=c(1,2,2,1,2,1)) # Two series of three with different values through each series
d3 <- data.frame(x=c("a","a","a","b","b","b"),y=c(1,2,2,1,1,1)) # Two series of three, one series has all the same values
ggplot(data=d1) + geom_violin(aes(x=x,y=y)) # This works
ggplot(data=d1) + geom_violin(aes(x=x,y=y), scale="count") # This works
ggplot(data=d3) + geom_violin(aes(x=x,y=y)) # This produces an error: replacement has 1 row, data has 0
ggplot(data=d3) + geom_violin(aes(x=x,y=y), scale="count") # This produces an error: replacement has 1 row, data has 0
Первые два графика работают нормально, вторые два терпят неудачу:
Error in `$<-.data.frame`(`*tmp*`, "n", value = 3L) :
replacement has 1 row, data has 0
Это ошибка? Есть ли обходной путь? Спасибо
