我正在尝试使用以下数据构建一个气泡图:
#install.packages(“tidyverse”) #install.packages(“plotly”) #install.packages(“viridis”)
库(tidyverse)…
经过一些故障排除后,似乎是您的电话 shape = 21 在 geom_point 。请尝试此解决方法:
shape = 21
geom_point
bubble <- ggplot(data = data, aes(x = race, y = gender)) + geom_point(aes(size = log10(count) * 4, color = count)) + scale_color_viridis(discrete = F) + geom_text(aes(label = count), size = 4) + scale_size_identity() + xlab("Race") + ylab("Gender") + theme_classic() ggplotly(bubble)
注意:你必须改变你的全部 fill 打电话给 color (包含 scale_color_viridis )
fill
color
scale_color_viridis