我想在 ggplot 中的直方圖的 x 軸末尾添加一個刻度線。軸范圍是 0 - 55，我希望將最后一個刻度線更改為“>55”。
set1 %>%
ggplot(aes(x=total, fill=lowcost))
geom_histogram(binwidth=1,aes(y = (..count..)/sum(..count..)),col=I("black"))
scale_color_grey() scale_fill_grey(start = .85,
end = .85,)
theme_linedraw()
guides(fill = "none", cols='none')
geom_vline(aes(xintercept=10, size='Low target'),
color="black", linetype=5)
geom_vline(aes(xintercept=50, size='High target'),
color="black", linetype="dotted")
scale_size_manual(values = c(.5, 0.5), guide=guide_legend(title = "Target", override.aes = list(linetype=c(3,5), color=c('black', 'black'))))
scale_y_continuous(labels=scales::percent)
scale_x_continuous(breaks = seq(0,55,10),limits = c(0,60))
facet_grid(cols = vars(lowcost))
ggtitle("Ask Set 1 ")
theme(plot.title = element_text(hjust = 0.5))
xlab("Total donation ($)")
ylab("Percent")
uj5u.com熱心網友回復：
為了向您展示@Allan Cameron 在評論中所說的內容，我創建了一個可重現的資料集。您可以使用以下代碼：
library(tidyverse)
set1 <- data.frame(total = runif(100, 0, 100),
lowcost = rep(LETTERS[1:2], 100))
set1 %>%
ggplot(aes(x=total, fill=lowcost))
geom_histogram(binwidth=1,aes(y = (..count..)/sum(..count..)),col=I("black"))
scale_color_grey() scale_fill_grey(start = .85,
end = .85,)
theme_linedraw()
guides(fill = "none", cols='none')
geom_vline(aes(xintercept=10, size='Low target'),
color="black", linetype=5)
geom_vline(aes(xintercept=50, size='High target'),
color="black", linetype="dotted")
scale_size_manual(values = c(.5, 0.5), guide=guide_legend(title = "Target", override.aes = list(linetype=c(3,5), color=c('black', 'black'))))
scale_y_continuous(labels=scales::percent)
scale_x_continuous(breaks = c(seq(0,50,10), 55), labels = c(seq(0, 50, 10), '>55'), limits = c(0, 60))
facet_grid(cols = vars(lowcost))
ggtitle("Ask Set 1 ")
theme(plot.title = element_text(hjust = 0.5))
xlab("Total donation ($)")
ylab("Percent")
輸出：
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/450741.html
上一篇：在單個視窗中加入2個ggplots并將第二個放在輔助軸中
下一篇：如何在R中的圖中添加圖形的名稱？