這是我的劇情腳本，
data = data.frame(Kingdom = c("Bacteria", "Archaea"),
Total = c(273523, 2616))
sizeRange <- c(0,30)
library(ggplot2)
ggplot(data, aes(x=0,y=Kingdom,color=Kingdom))
geom_point(aes(size = Total,alpha=10),colour="blue",stroke=2)
scale_size(range = sizeRange)
theme_bw()
theme(panel.border = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
axis.line = element_line(colour = "white"))
有人，請告訴我如何在我的 y 軸標簽和繪圖之間建立一條連接線 我的繪圖看起來像這樣
我想要這樣的東西
uj5u.com熱心網友回復：
一個干凈的替代方法是直接標記點，如果需要，洗掉 y 軸。例如：
ggplot(data, aes(x=0,y=Kingdom,color=Kingdom))
ggrepel::geom_text_repel(aes(label = Kingdom), vjust = -1,colour="black")
geom_point(aes(size = Total),colour="blue",stroke=2)
scale_size(range = sizeRange)
theme_bw()
theme(panel.border = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
axis.line = element_line(colour = "white"),
axis.text.y=element_blank(),
axis.title.y = element_blank(),
axis.ticks.y=element_blank())
uj5u.com熱心網友回復：
您可以手動添加段，但是您的點的 alpha 會顯示它們。
這是一個嘗試，如果 x 軸擴展它并不完美。
ggplot(data, aes(x=0,y=Kingdom,color=Kingdom))
# Added the segments here before the points.
# I tried to alpha it but I can't figure out how to limit the
# segment to the point border.
geom_segment(x = rep(-100,2), xend = rep(0,2),
y = c(1, 2), yend = c(1,2),colour="blue", alpha = 10)
geom_point(aes(size = Total,alpha=10),colour="blue",stroke=2)
scale_size(range = sizeRange)
theme_bw() guides(alpha = "none") # remove alpha from legend.
theme(panel.border = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
axis.line = element_line(colour = "white"))
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/420824.html
標籤：
上一篇：如何在ggplot2，R中指定所有因素相同的顏色和透明度？
下一篇：R-如何修改圖例？