相关疑难解决方法(0)

我有以下数据(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))

而不是传说,我喜欢标签

1. 颜色与系列相同
2. 每个系列的最后一个数据点的右侧

我在以下链接的答案中注意到了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", …

我想用ggplot探索directlabels包.我试图在简单折线图的端点处绘制标签; 但是,标签面板会剪切标签.

我想可能有另一个解决方案使用annotate或其他一些geoms.但我想用直接标签来解决.请参阅下面的代码和图片.谢谢.

library(ggplot2)
library(directlabels)
library(tidyr)

#generate data frame with random data, for illustration and plot:
x <- seq(1:100)
y <- cumsum(rnorm(n = 100, mean = 6, sd = 15))
y2 <- cumsum(rnorm(n = 100, mean = 2, sd = 4))
data <- as.data.frame(cbind(x, y, y2))
names(data) <- c("month", "stocks", "bonds")
tidy_data <- gather(data, month)
names(tidy_data) <- c("month", "asset", "value")
p <- ggplot(tidy_data, aes(x = month, y = value, colour = asset)) + 
geom_line() + 
geom_dl(aes(colour = asset, …

我想在图中添加诸如"分位数1","分位数10"等名称作为标签,而不是在图表之外添加图例.

ggplot() + 
  geom_line(data=df.quants, aes(x=xvars, y=q01), color="black", size =0.5) +
  geom_line(data=df.quants, aes(x=xvars, y=q10), color="black", size =0.7) +
  geom_line(data=df.quants, aes(x=xvars, y=q25), color="black", size =1) +
  geom_line(data=df.quants, aes(x=xvars, y=q50), color="black", size =1.2) +
  geom_line(data=df.quants, aes(x=xvars, y=q75), color="black", size =1) +
  geom_line(data=df.quants, aes(x=xvars, y=q90), color="black", size =0.7) +
  geom_line(data=df.quants, aes(x=xvars, y=q99), color="black", size =0.5) +
  geom_ribbon(data=df.quants,aes(x=xvars,ymin=q25,ymax=q75),alpha=0.8)+
  geom_ribbon(data=df.quants,aes(x=xvars,ymin=q10,ymax=q25),alpha=0.5)+
  geom_ribbon(data=df.quants,aes(x=xvars,ymin=q75,ymax=q90),alpha=0.5)+
  geom_ribbon(data=df.quants,aes(x=xvars,ymin=q01,ymax=q10),alpha=0.2)+
  geom_ribbon(data=df.quants,aes(x=xvars,ymin=q90,ymax=q99),alpha=0.2)+
  theme_bw()+
  ggtitle("Q")+
  ggsave("save.png")

如何在这两种情况中的一个或两个中在图上添加标签:

1. 在行尾(例如/sf/answers/2638773861/)
2. 将鼠标悬停在左侧(/sf/answers/2637074051/)

dput(df.quants)

structure(list(xvars = c(21.1084, 40.4038, 42.4758, 44.0298, 
    44.8068, 53.0948, 53.3538, 54.3898, 56.4617, 62.9367, …