Как я могу исправить смещенные галочки по оси Y моего графика?

Вот как мой код выглядит прямо сейчас:

library(plotly)
library(RColorBrewer)

year <- c(1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006)
amt <- c(11000, 16000, 21000, 27000, 33000, 37000, 43000, 54000, 68000, 94000, 128000, 170000, 213000, 258000, 307000, 348000, 385000)

data <- data.frame(year, amt)

data$year <- factor(data$year, levels = data[["year"]])

a <- list(title = "Years",
      showline = TRUE,
      showgrid = FALSE,
      showticklabels = TRUE,
      linecolor = 'black',
      linewidth = 1,
      autotick = FALSE,
      ticks = 'outside',
      tickcolor = 'black',
      tickwidth = 2,
      ticklen = 5,
      tickfont = list(family = 'Cambria',
                      size = 10,
                      color = 'rgb(82, 82, 82)'))

b <- list(title = "Years",
      showline = TRUE,
      showgrid = FALSE,
      showticklabels = TRUE,
      linecolor = 'black',
      linewidth = 1,
      autotick = FALSE,
      ticks = 'outside',
      tickcolor = 'black',
      tickwidth = 2,
      ticklen = 5,
      tickfont = list(family = 'Cambria',
                      size = 10,
                      color = 'rgb(82, 82, 82)'))


plot_ly(data, x = ~year,
y = ~amt,
name= '',
type='scatter',
mode = 'lines+markers',
line = list(color = toRGB('#964f4d')),
marker = list(color = toRGB("#964f4d"))) %>%
layout(title = 'Pre-purchase financing poll',
xaxis = a,
yaxis = b)

Но каждый тик по оси Y отображается в отметке 0. Есть ли способ изменить масштаб распределения тиков? Сама графика выглядит нормально. Благодарю вас!


person LauraP    schedule 27.10.2016    source источник


Ответы (1)


Вам нужно либо:

  • укажите autotick = TRUE
  • или вручную указать tickval и ticktext вот так:

    b <- list(title = "Years",
          showline = TRUE,
          showgrid = FALSE,
          showticklabels = TRUE,
          linecolor = 'black',
          linewidth = 1,
          tickval = amt,
          ticktext = amt,
          ticks = 'outside',
          tickcolor = 'black',
          tickwidth = 2,
          ticklen = 5,
          tickfont = list(family = 'Cambria',
                          size = 10,
                          color = 'rgb(82, 82, 82)'))
    
person royr2    schedule 27.10.2016