我將如何著手繪制這個集群以減少奇異果的百分比重新排序的地方？
df = data.frame()
df = data.frame(matrix(df, nrow=200, ncol=2))
colnames(df) <- c("cluster", "name")
df$cluster <- sample(20, size = nrow(df), replace = TRUE)
df$fruit <- sample(c("banana", "apple", "orange", "kiwi", "plum"), size = nrow(df), replace = TRUE)
p = ggplot(df, aes(x = as.factor(cluster), fill = as.factor(fruit)))
geom_bar(position = 'fill')
theme_classic()
coord_flip()
scale_y_continuous(labels = scales::percent)
theme(axis.text.y = element_text(size = 20),
axis.title.x = element_text(size = 20),
axis.title.y = element_text(size = 20),
axis.text=element_text(size=20))
theme(legend.text = element_text(size = 20))
xlab("Cluster")
ylab("Fruit percentage")
labs( fill = "")
p
uj5u.com熱心網友回復：
在您之前的帖子中采用@RobertHacken的優雅
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/534930.html
標籤：r图表2几何条