如何更改图表标签上的小数点并更改标签位置？

Question

我做了使用ggplot2一个图表，显示了我一些历史数据：

library(ggplot2) 
chart_2 <- ggplot(graf2, aes(x=data, y=relativo, label = as.integer(relativo))) + 
scale_fill_discrete(guide = F) + 
geom_line(aes(y=relativo, color="red"), size = 0.7) + 
labs(title = "Relativo Preço Gasolina: Consumidor/Distribuidora", x = "Data", y="Relativo de Preços") + 
theme_bw() + 
theme(legend.position = "none", plot.title = element_text(hjust=0.5, size = 12, face = "bold"), 
axis.text.x=element_text(angle=90,vjust=0.5, size = 10, color = "black"), 
axis.title=element_text(size = 12)) + 
scale_x_date(date_labels = "%b %Y", date_breaks = "1.5 years") + 
geom_dl(aes(label=last(relativo)), vjust = -2, method="last.points") 

我有两个问题在这里：

1. 我想更改标签的位置图表的最后一点，但我不知道如何。

2. 标签有很多小数点的，我想改变，只是2

Answer 1

1. 要使用position_nudge更改参数position标签的位置调整：

   # Using -2 only as example to move label along x-axis 
   geom_dl(aes(label = last(relativo)), 
        method = "last.points", 
        position = position_nudge(-2)) 
   

2. 要更改为小数点后两位，请使用round function from base R：

   round(last(relativo), 2) 
   

组合代码应该是：

geom_dl(aes(label = round(last(relativo), 2), 
     method = "last.points", 
     position = position_nudge(-2)) 

PS：我不知道你的函数last做什么（无法​​测试我的代码）。