반응형
선 끝에 레이블 표시
저는 다음과 같은 데이터를 가지고 있습니다.temp.dat전체 데이터는 끝 노트 참조)
Year State Capex
1 2003 VIC 5.356415
2 2004 VIC 5.765232
3 2005 VIC 5.247276
4 2006 VIC 5.579882
5 2007 VIC 5.142464
...
다음 차트를 작성할 수 있습니다.
ggplot(temp.dat) +
geom_line(aes(x = Year, y = Capex, group = State, colour = State))
전설 대신에 라벨이
- 시리즈와 동일한 색상의
- 각 영상 시리즈의 마지막 데이터 지점 오른쪽에
다음 링크의 답변에서 침례교인의 의견을 알아챘지만, 그의 코드를 적용하려고 할 때 (geom_text(aes(label = State, colour = State, x = Inf, y = Capex), hjust = -1)) 텍스트가 나타나지 않습니다.
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,
4.29934654081527, 4.54639175257732, 4.70040615159951, 5.04056109514957,
5.49921208937735, 5.96590909090909, 6.18700407463007)), class = "data.frame", row.names = c(NA,
-48L), .Names = c("Year", "State", "Capex"))
새로운 솔루션은 다음을 사용하는 것은ggrepel:
library(ggplot2)
library(ggrepel)
library(dplyr)
temp.dat %>%
mutate(label = if_else(Year == max(Year), as.character(State), NA_character_)) %>%
ggplot(aes(x = Year, y = Capex, group = State, colour = State)) +
geom_line() +
geom_label_repel(aes(label = label),
nudge_x = 1,
na.rm = TRUE)
Baptiste의 아이디어를 사용하려면 클리핑을 꺼야 합니다.하지만 그렇게 하면 쓰레기가 나옵니다.또한, 범례를 억제해야 하며,geom_text2014년 자본 비용을 선택하고 여유를 늘려 레이블을 위한 공간을 확보합니다. (또는 조정할 수 있습니다.)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)
하지만, 이것은 완벽한 줄거리입니다.
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))
나는 지친 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 부분은 아래 축을 고정하는 것입니다.
이 매우 인기 있는 문제를 해결하기 위한 새로운 패키지가 있습니다.{textpath}은(는) 끝에 "only" 레이블링 이상의 직접 레이블링 옵션을 제공합니다.
게다가, 라벨은 곡선을 따를 것입니다!이것이 모든 사람의 입맛에 맞지 않을 수도 있지만, 저는 이것이 매우 단정한 모습이라고 생각합니다.
library(geomtextpath)
## end of line
ggplot(temp.dat) +
geom_textline(aes(
x = Year, y = Capex, group = State, colour = State, label = State
),
hjust = 1
) +
theme(legend.position = "none")
## somewhere in the middle
ggplot(temp.dat) +
geom_textline(aes(
x = Year, y = Capex, group = State, colour = State, label = State
),
hjust = .7
) +
theme(legend.position = "none")
gem_smooth를 기반으로 한 예측 곡선을 위한 많은 gem이 있습니다. (사용자 Mark Neal에게 답변)
ggplot(temp.dat, aes(x = Year, y = Capex, group = State, colour = State)) +
geom_line() +
## note this is using the current dev version. you currently have to specify method argument, otherwise the disambiguation of some function fails.
## see also https://github.com/AllanCameron/geomtextpath/issues/79) +
geom_textsmooth(aes(label = State),
lty = 2,
hjust = 1) +
theme(legend.position = "none")
#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'
reprex 패키지(v2.0.1)에 의해 2022-07-12에 생성되었습니다.
라벨 이름이 더 긴 경우를 위한 솔루션을 추가하고 싶습니다.제공된 모든 솔루션에서 레이블은 플롯 캔버스 내에 있지만 이름이 더 길면 레이블이 잘립니다.이 문제를 해결한 방법은 다음과 같습니다.
library(tidyverse)
# Make the "State" variable have longer levels
temp.dat <- temp.dat %>%
mutate(State = paste0(State, '-a-long-string'))
ggplot(temp.dat, aes(x = Year, y = Capex, color = State, group = State)) +
geom_line() +
# Add labels at the end of the line
geom_text(data = filter(temp.dat, Year == max(Year)),
aes(label = State),
hjust = 0, nudge_x = 0.1) +
# Allow labels to bleed past the canvas boundaries
coord_cartesian(clip = 'off') +
# Remove legend & adjust margins to give more space for labels
# Remember, the margins are t-r-b-l
theme(legend.position = 'none',
plot.margin = margin(0.1, 2.6, 0.1, 0.1, "cm"))
그것이 가장 좋은 방법인지는 모르겠지만, 당신은 다음을 시도할 수 있습니다. (조금만 가지고 놀아보세요.)xlim정확한 한계 설정):
library(dplyr)
lab <- tapply(temp.dat$Capex, temp.dat$State, last)
ggplot(temp.dat) +
geom_line(aes(x = Year, y = Capex, group = State, colour = State)) +
scale_color_discrete(guide = FALSE) +
geom_text(aes(label = names(lab), x = 12, colour = names(lab), y = c(lab), hjust = -.02))
적합선에 직접 라벨을 붙이려고 이 질문을 하게 되었습니다(예:loess()) 마지막 데이터 점이 아닌 마지막 적합점에 표시됩니다.저는 결국 이것을 하기 위한 접근법을 생각해냈습니다. 주로 깔끔한 역에 기반을 두고 있습니다. 또한 몇 가지 모드로 선형 회귀에도 효과가 있어야 하기 때문에, 저는 이것을 후세를 위해 남겨둡니다.
library(tidyverse)
temp.dat$Year <- as.numeric(temp.dat$Year)
temp.dat$State <- as.character(temp.dat$State)
#example of loess for multiple models
#https://stackoverflow.com/a/55127487/4927395
models <- temp.dat %>%
tidyr::nest(-State) %>%
dplyr::mutate(
# Perform loess calculation on each CpG group
m = purrr::map(data, loess,
formula = Capex ~ Year, span = .75),
# Retrieve the fitted values from each model
fitted = purrr::map(m, `[[`, "fitted")
)
# Apply fitted y's as a new column
results <- models %>%
dplyr::select(-m) %>%
tidyr::unnest()
#find final x values for each group
my_last_points <- results %>% group_by(State) %>% summarise(Year = max(Year, na.rm=TRUE))
#Join dataframe of predictions to group labels
my_last_points$pred_y <- left_join(my_last_points, results)
# Plot with loess line for each group
ggplot(results, aes(x = Year, y = Capex, group = State, colour = State)) +
geom_line(alpha = I(7/10), color="grey", show.legend=F) +
#stat_smooth(size=2, span=0.3, se=F, show_guide=F)
geom_point(size=1) +
geom_smooth(se=FALSE)+
geom_text(data = my_last_points, aes(x=Year+0.5, y=pred_y$fitted, label = State))
당신은 @Baptiste의 솔루션을 100% 모방하지 않았습니다.은 야합다니해를 사용해야 .annotation_custom그리고 당신의 모든 것을 순환합니다.Capex의:
library(ggplot2)
library(dplyr)
library(grid)
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,
4.29934654081527, 4.54639175257732, 4.70040615159951, 5.04056109514957,
5.49921208937735, 5.96590909090909, 6.18700407463007)), class = "data.frame", row.names = c(NA,
-48L), .Names = c("Year", "State", "Capex"))
temp.dat$Year <- factor(temp.dat$Year)
color <- c("#8DD3C7", "#FFFFB3", "#BEBADA", "#FB8072")
gg <- ggplot(temp.dat)
gg <- gg + geom_line(aes(x=Year, y=Capex, group=State, colour=State))
gg <- gg + scale_color_manual(values=color)
gg <- gg + labs(x=NULL)
gg <- gg + theme_bw()
gg <- gg + theme(legend.position="none")
states <- temp.dat %>% filter(Year==2014)
for (i in 1:nrow(states)) {
print(states$Capex[i])
print(states$Year[i])
gg <- gg + annotation_custom(
grob=textGrob(label=states$State[i],
hjust=0, gp=gpar(cex=0.75, col=color[i])),
ymin=states$Capex[i],
ymax=states$Capex[i],
xmin=states$Year[i],
xmax=states$Year[i])
}
gt <- ggplot_gtable(ggplot_build(gg))
gt$layout$clip[gt$layout$name == "panel"] <- "off"
grid.newpage()
grid.draw(gt)
(흰색 배경을 유지하는 경우 노란색을 변경할 수 있습니다.)
언급URL : https://stackoverflow.com/questions/29357612/plot-labels-at-ends-of-lines
반응형
'programing' 카테고리의 다른 글
| 목록의 각 요소에 정수를 추가하는 방법은 무엇입니까? (0) | 2023.06.05 |
|---|---|
| NodeJS - "소켓 전화 끊기"가 실제로 무엇을 의미합니까? (0) | 2023.06.05 |
| 세 개의 열 데이터 프레임을 행렬("긴"에서 "넓은" 형식)로 재구성 (0) | 2023.06.05 |
| data.frame을 와이드 형식에서 롱 형식으로 재구성 (0) | 2023.06.05 |
| Android의 Firebase Google Authentication에서 사용자가 처음으로 인증되었는지 확인합니다. (0) | 2023.06.05 |