gggplot 2-在圖外注釋我想把樣本大小值和圖上的點聯系起來。我可以用geom_text將數字定位到接近點的位置，但這是混亂的。如果沿著地塊的外部邊緣把他們排成一排，那就更干凈了。例如，我有：df=data.frame(y=c("cat1","cat2","cat3"),x=c(12,10,14),n=c(5,15,20))ggplot(df,aes(x=x,y=y,label=n))+geom_point()+geom_text(size=8,hjust=-0.5)產生這個情節：我更喜歡這樣的東西：我知道我可以創建第二個情節grid.arrange(A)a la這個職位)但是，確定textGrobs與y軸之間的間距是很繁瑣的。有更簡單的方法嗎？謝謝!
3 回答
LEATH
TA貢獻1936條經驗 獲得超7個贊
annotation_customggplot2
library (ggplot2)library(grid)df=data.frame(y=c("cat1","cat2","cat3"),x=c(12,10,14),n=c(5,15,20))p <- ggplot(df, aes(x,y)) + geom_point() +
# Base plot
theme(plot.margin = unit(c(1,3,1,1), "lines")) # Make room for the grobfor (i in 1:length(df$n)) {p <- p + annotation_custom(
grob = textGrob(label = df$n[i], hjust = 0, gp = gpar(cex = 1.5)),
ymin = df$y[i], # Vertical position of the textGrob
ymax = df$y[i],
xmin = 14.3, # Note: The grobs are positioned outside the plot area
xmax = 14.3)
} # Code to override clippinggt <- ggplot_gtable(ggplot_build(p))gt$layout$clip[gt$layout$name == "panel"] <- "off"grid.draw(gt)
白豬掌柜的
TA貢獻1893條經驗 獲得超10個贊
基于grid
require(grid)
df = data.frame(y = c("cat1", "cat2", "cat3"), x = c(12, 10, 14), n = c(5, 15, 20))
p <- ggplot(df, aes(x, y)) + geom_point() + # Base plot
theme(plot.margin = unit(c(1, 3, 1, 1), "lines"))
p
grid.text("20", x = unit(0.91, "npc"), y = unit(0.80, "npc"))
grid.text("15", x = unit(0.91, "npc"), y = unit(0.56, "npc"))
grid.text("5", x = unit(0.91, "npc"), y = unit(0.31, "npc"))
- 3 回答
- 0 關注
- 1656 瀏覽
添加回答
舉報
0/150
提交
取消