我有一個類似如下的資料集：
df <- structure(list(Topic = c("Topic_A", "Topic_A",
"Topic_A", "Topic_A", "Topic_A",
"Topic_A", "Topic_A", "Topic_A",
"Topic_A", "Topic_A", "Topic_A",
"Topic_B", "Topic_B", "Topic_B",
"Topic_B", "Topic_B", "Topic_B",
"Topic_B", "Topic_B", "Topic_B",
"Topic_B", "Topic_B"),
month = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L,
11L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L), .Label = c("Jan",
"Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct",
"Nov", "Dec"), class = c("ordered", "factor")), N = c(439L,
291L, 592L, 527L, 336L, 254L, 141L, 137L, 68L, 182L, 125L,
48L, 111L, 74L, 127L, 55L, 80L, 105L, 129L, 63L, 72L, 82L
)), row.names = c(NA, 22L), class = "data.frame")
我正在使用以下代碼生成每月熱圖、X 軸上的月份名稱和 Y 軸上的主題名稱：
ggplot(df, aes( month,Topic)) geom_tile(aes(fill = N),colour = "white")
#scale_fill_gradient(low = col1, high = col2)
scale_fill_viridis(name="Hrly Temps C",option ="C")
guides(fill=guide_legend(title="Frequency"))
labs(title = "Topic Heatmap",
x = "Month", y = "Topic")
theme_bw() theme_minimal()
theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())
由于在我的原始資料集中，幾乎每個月的主題名稱都不同，我想用相應月份的主題名稱注釋每個熱圖框，在這種情況下洗掉 Y 軸，并在每個熱圖框內添加文本月。
任何指導我該怎么做？
uj5u.com熱心網友回復：
您可以添加geom_text()以將文本添加到每個面板，并通過element_blank()在主題中使用來洗掉 y 軸值
ggplot(df, aes( month,Topic)) geom_tile(aes(fill = N),colour = "white")
#scale_fill_gradient(low = col1, high = col2)
scale_fill_viridis_c(name="Hrly Temps C")
guides(fill=guide_legend(title="Frequency"))
labs(title = "Topic Heatmap",
x = "Month", y = "Topic")
theme_minimal()
geom_text( aes(x = month, y = Topic, label = Topic), angle = 90, color = "white")
theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
axis.text.y = element_blank())
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/478909.html