更新版のplotlyでレイアウトを設定する方法は？

Question

私はplotlyの新しいバージョンを使用して簡単なグラフィックを描画しようとしているが、私は次のようなエラーにUseMethod（「レイアウト」）で

エラー得続ける：に適用される「レイアウト」 のためノー適用可能な方法をクラス「文字」の対象

これは以下のように私のコードがどのように見えるかです：レイアウトコマンドが動作していない

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(11, 16, 21, 27, 33, 37, 43, 54, 68, 94, 128, 170, 213, 258, 307, 348, 385) 

data <- data.frame(year, amt) 

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

xaxis <- 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)')) 

yaxis <- 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 = layout.xaxis, 
    yaxis = layout.yaxis) 

誰かが理由を知っていると私は何をすべきか、私はトンを認めるならば、彼は助ける！

ありがとうございました！

Answer 1

%>%をplot_lyとlayoutの間に追加できます。

Answer 2

正直言って、私はプロット全体のパッケージであまり進んでいません。なぜそれが働いていないのかは分かりませんが（私は単純に分かりません）、コードを変更して出力を得ました！

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(11, 16, 21, 27, 33, 37, 43, 54, 68, 94, 128, 170, 213, 258, 307, 348, 385) 

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) 

申し訳ありませんが、私はあなたの説明を助けることができませんが、これは少し助けてくれることを願っています！