r - 显示除最后一行以外的数据

Question

我有一个整年的月度数据集，其中我还有最后一行带有月度平均值，我想在图表中用作标签。

我想将它保存在数据集中，但不在图表中显示它的值（标签除外）。有没有办法在 plotly 公式中省略最后一行（类似于“对于轴 y 值使用变量a但仅在位置 1-12”）？

我的代码：

library(plotly)
library(readxl)

data1 <- read_excel("addr data all.xlsx", sheet = "Main_hard")

fig <- plot_ly(data1, x = ~yearmonth, y = ~a, name = 'Informace o parcele v katastru nemovitostí', type = 'scatter', mode = 'lines+markers',
           line = list(color = 'rgb(0,54,87)', width = 4), marker = list(color = 'rgb(0,54,87)', size = 8))
fig <- fig %>% add_trace(y = ~b, name = 'Panorama', line = list(color = 'rgb(186,251,0)', width = 4), marker = list(color = 'rgb(186,251,0)', size = 8))
fig <- fig %>% add_trace(y = ~c, name = 'Firmy na této adrese', line = list(color = 'rgb(108,0,159)', width = 4), marker = list(color = 'rgb(108,0,159)', size = 8))
fig <- fig %>% add_trace(y = ~d, name = 'Do plánování', line = list(color = 'rgb(54,156,0)', width = 4), marker = list(color = 'rgb(54,156,0)', size = 8))
fig <- fig %>% add_trace(y = ~e, name = 'GPS', line = list(color = 'rgb(0,78,216)', width = 4), marker = list(color = 'rgb(0,78,216)', size = 8))
fig <- fig %>% add_trace(y = ~f, name = '3D pohled', line = list(color = 'rgb(227,129,0)', width = 4), marker = list(color = 'rgb(227,129,0)', size = 8))

label_1 <- list(
  xref = 'paper',
  yref = 'y',
  x = 1.05,
  y = data1$a[12],
  xanchor = 'right',
  yanchor = 'middle',
  text = ~paste(a[13], '%'),
  font = list(family = 'sans',
              size = 12,
              color = 'rgb(0,54,87)'),
  showarrow = FALSE)

fig <- fig %>% layout(title = 'Klikanost v období 10/2019 - 09/2020',
                      xaxis = list(title = 'Měsíc'),
                      yaxis = list(title = 'Počet kliků'),
                      annotations = label_1)

fig

标签： rplotlylinechart