我正在嘗試將穩定氧同位素符號放入 ggplot 中的軸文本（刻度線標簽）中。
示例資料
df <- data.frame(author = c("one", "two", "three"),
d18O = c("D", "D", "U"),
Mg = c("I", "D", "D"),
`Drip Rate` = c("U", "I", "I")) %>%
pivot_longer(-c(author))
示例圖
df %>%
ggplot(aes(x = name, fill = value))
geom_bar(position = "fill", colour = "black", size = 0.1)
facet_grid(author~., scales = "free")
scales::parse_format 將決議符號的第一部分 (δ^18)
df2 <- df
df2[which(df2$name == "d18O"),]$name <- "delta^18"
df2 %>%
ggplot(aes(x = name, fill = value))
geom_bar(position = "fill", colour = "black", size = 0.1)
facet_grid(author~., scales = "free")
scale_x_discrete(labels = scales::parse_format())
但是當我嘗試添加 O（使其成為 δ^18O）時，我得到了錯誤Error in parse(text = text[[i]]) : <text>:1:9: unexpected symbol 1: delta^18O ^
任何幫助表示贊賞！
uj5u.com熱心網友回復：
您需要添加一個星號來轉義上標：
df2[which(df2$name == "d18O"),]$name <- "delta^18*O"
uj5u.com熱心網友回復：
如果 O 表示 Omicron，您可以使用
df2[which(df2$name == "d18O"),]$name <- "delta^~18*Omicron"
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/480420.html
上一篇：Shiny-updateTabsetPanel-更改客戶端上選定的選項卡
下一篇：R：所有以開頭的列的總和