我已經建立了一個條形圖，現在我有一個非常具體的需求。我想在欄的頂部添加diff和perdiff值，但找不到任何合適的方法。另外，我想顯示沒有中斷的 x 比例，例如 0, 25,50,100,125 ....
df <- data.frame (Origin = c("Canada", "Canada","USA","USA"),
Year = c("2021", "2022","2021","2022"),
Sales = c(103, 192, 144, 210),
diff = c(89, " ",66," "),
perdiff = c(86.4, " ",45.83," "))
ggplot(df, aes(fill=Year, y=Origin, x=Sales))
geom_bar(position="dodge", stat="identity")
期望的結果：
uj5u.com熱心網友回復：
label添加了用于在圖上標記的列。
順便說一句，你想要的結果的標簽被切換了。（根據您的df, 89, 46.4 為加拿大）。
require(ggplot2)
require(dplyr)
df <- data.frame (Origin = c("Canada", "Canada","USA","USA"),
Year = c("2021", "2022","2021","2022"),
Sales = c(103, 192, 144, 210),
diff = c(89, " ",66," "),
perdiff = c(86.4, " ",45.83," "))
df <- df %>% mutate(label= ifelse(diff!=" ",paste0(diff,", ",perdiff,'%'),NA))
ggplot(df, aes(fill=Year, y=Origin, x=Sales))
geom_bar(position="dodge", stat="identity")
geom_text(aes(label=label, x=200), fontface='bold')
scale_x_continuous(breaks=seq(0,200,25))
theme()
#> Warning: Removed 2 rows containing missing values (geom_text).
由reprex 包于 2022-05-03 創建(v2.0.1)
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/471623.html
標籤：r ggplot2 tidyverse 数据可视化 条形图
上一篇：如何在水平圖例上方繪制圖例標題