我有以下數據（temp.dat完整數據請參見尾注） Year State Capex1 2003 VIC 5.3564152 2004 VIC 5.7652323 2005 VIC 5.2472764 2006 VIC 5.5798825 2007 VIC 5.142464...我可以生成以下圖表：ggplot(temp.dat) + geom_line(aes(x = Year, y = Capex, group = State, colour = State))我希望標簽不是傳說，而是顏色與系列相同每個系列的最后一個數據點的右側我在以下鏈接的答案中注意到baptiste的評論，但是當我嘗試修改他的代碼（geom_text(aes(label = State, colour = State, x = Inf, y = Capex), hjust = -1)）時，文本不會出現。ggplot2-在情節之外進行注釋temp.dat <- structure(list(Year = c("2003", "2004", "2005", "2006", "2007", "2008", "2009", "2010", "2011", "2012", "2013", "2014", "2003", "2004", "2005", "2006", "2007", "2008", "2009", "2010", "2011", "2012", "2013", "2014", "2003", "2004", "2005", "2006", "2007", "2008", "2009", "2010", "2011", "2012", "2013", "2014", "2003", "2004", "2005", "2006", "2007", "2008", "2009", "2010", "2011", "2012", "2013", "2014"), State = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), .Label = c("VIC", "NSW", "QLD", "WA"), class = "factor"), Capex = c(5.35641472365348, 5.76523240652641, 5.24727577535625, 5.57988239709746, 5.14246402568366, 4.96786288162828, 5.493190785287, 6.08500616799372, 6.5092228474591, 7.03813541623157, 8.34736513875897, 9.04992300432169, 7.15830329914056, 7.21247045701994, 7.81373928617117, 7.76610217197542, 7.9744994967006, 7.93734452080786, 8.29289899132255, 7.85222269563982, 8.12683746325074, 8.61903784301649, 9.7904327253813, 9.75021175267288, 8.2950673974226, 6.6272705639724, 6.50170524635367, 6.15609626379471, 6.43799637295979, 6.9869551384028, 8.36305663640294, 8.31382617231745, 8.65409824343971, 9.70529678167458, 11.3102788081848, 11.8696420977237, 6.77937303542605, 5.51242844820827, 5.35789621712839, 4.38699327451101, 4.4925792218211,
3 回答
瀟瀟雨雨
TA貢獻1833條經驗 獲得超4個贊
要使用Baptiste的想法，您需要關閉剪輯。但是，當您這樣做時，就會得到垃圾。此外，您需要geom_text隱藏圖例，并為（選擇）2014年的資本支出（Capex），并增加邊距為標簽留出空間。（或者，您可以調整hjust參數以在打印面板內移動標簽。）類似以下內容：
library(ggplot2)
library(grid)
p = ggplot(temp.dat) +
geom_line(aes(x = Year, y = Capex, group = State, colour = State)) +
geom_text(data = subset(temp.dat, Year == "2014"), aes(label = State, colour = State, x = Inf, y = Capex), hjust = -.1) +
scale_colour_discrete(guide = 'none') +
theme(plot.margin = unit(c(1,3,1,1), "lines"))
# Code to turn off clipping
gt <- ggplotGrob(p)
gt$layout$clip[gt$layout$name == "panel"] <- "off"
grid.draw(gt)
在此處輸入圖片說明
但是，這是最適合的情節directlabels。
library(ggplot2)
library(directlabels)
ggplot(temp.dat, aes(x = Year, y = Capex, group = State, colour = State)) +
geom_line() +
scale_colour_discrete(guide = 'none') +
scale_x_discrete(expand=c(0, 1)) +
geom_dl(aes(label = State), method = list(dl.combine("first.points", "last.points"), cex = 0.8))
編輯 要增加端點和標簽之間的間距，請執行以下操作：
ggplot(temp.dat, aes(x = Year, y = Capex, group = State, colour = State)) +
geom_line() +
scale_colour_discrete(guide = 'none') +
scale_x_discrete(expand=c(0, 1)) +
geom_dl(aes(label = State), method = list(dl.trans(x = x + 0.2), "last.points", cex = 0.8)) +
geom_dl(aes(label = State), method = list(dl.trans(x = x - 0.2), "first.points", cex = 0.8))
牛魔王的故事
TA貢獻1830條經驗 獲得超3個贊
這個問題雖然古老，但卻是黃金，我為疲倦的ggplot人士提供了另一個答案。
該解決方案的原理可以相當普遍地應用。
Plot_df <-
temp.dat %>% mutate_if(is.factor, as.character) %>% # Who has time for factors..
mutate(Year = as.numeric(Year))
現在，我們可以子集數據了
ggplot() +
geom_line(data = Plot_df, aes(Year, Capex, color = State)) +
geom_text(data = Plot_df %>% filter(Year == last(Year)), aes(label = State,
x = Year + 0.5,
y = Capex,
color = State)) +
guides(color = FALSE) + theme_bw() +
scale_x_continuous(breaks = scales::pretty_breaks(10))
最后的pretty_breaks部分只是用于固定下面的軸。
- 3 回答
- 0 關注
- 556 瀏覽
添加回答
舉報
0/150
提交
取消