我正在facet_wrapR 中創建一個圖，并且我正在嘗試自動化labeller. 我可以使用以下代碼手動創建自定義標簽：
library(ggplot2)
library(tidyverse)
df <- data.frame(a = rep(c(1/8,1/4,1/2), each = 100),
b = rep(c("A", "B", "C", "D"), each = 25),
x = rnorm(100))
names <- c(
`0.125` = "alpha~`=`~1/8",
`0.25` = "alpha~`=`~1/4",
`0.5` = "alpha~`=`~1/2"
)
df %>% ggplot()
geom_density(aes(x = x, colour = b))
facet_wrap(~a, labeller = labeller(a = as_labeller(names, label_parsed)))
上面的代碼產生了這個圖：
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/383099.html
上一篇：我想從我的ggplots中排除一個觀察/元組。我只想顯示每個國家而不是世界總數
下一篇：For回圈跳過R中的列