給定每個事件發生的年份，我有一個包含 1000 行的資料集，其中有一列。我的目標是生成一個年齡直方圖，然后在圖上放置一個次要的 x 軸與每個事件的年份。但是，我發現的每個輔助軸示例都使用加法或乘法進行轉換；我似乎無法弄清楚如何在那里進行減法。最古老的事件發生在 1872 年。
這是我的代碼：
df <- df %>% mutate(age = 2022 - Year)
# Plot
g <- ggplot(df, aes(x = age))
g <- g geom_histogram(fill = "firebrick3", color = "white")
g <- g scale_x_continuous(breaks = breaks_pretty(0:160, n = 10),
sec.axis = sec_axis(~. 1872, name = "Year"))
g <- g labs(x = "Age (years)", y = "Count")
g
直方圖正確；常規的 x 軸和 y 軸是正確的，顏色也很好。輔助 x 軸靠近，但需要向后；隨著年齡從左到右增加，事件發生的年份應該從左到右遞減。
這是怎么做到的？
uj5u.com熱心網友回復：
我假設您想顯示事件發生的年份，因此由于 Age 將 Year 與 2022 相關聯，因此將其轉換回將采用 形式~ 2022 - .，其中.代表x您的情節中的潛在價值。
ggplot(df, aes(x = age))
geom_histogram(fill = "firebrick3", color = "white")
scale_x_continuous(breaks = scales::breaks_pretty(0:160, n = 10),
sec.axis = sec_axis(~ 2022 - ., name = "Year",
breaks = scales::breaks_width(20)))
labs(x = "Age (years)", y = "Count")
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/420818.html
標籤：