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

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 做了什么（无法​​测试我的代码）。