Question

到目前为止，这就是我所拥有的：

f1 <- list(
   family = "Arial, sans-serif",
   size = 25,
   color = "white"
)
f2 <- list(
   family = "Old Standard TT, serif",
   size = 14,
   color = "black"

)
a <- list(
   title = "SALES PER SONG",
   titlefont = f1,
   showgrid = FALSE,
   showticklabels = TRUE,
   showline=TRUE,
   tickangle = 45,
   tickfont = f2
  )

 salesplot <-plot_ly(producersales, type="scatter", x=Producer, y=SalesPerSong, color=SongRange, colors=cols, mode="markers", size=SalesPerSong) %>% 
layout(xaxis = a, yaxis = a)

我尝试在paper_bgcolor=#00000000, plot_bgcolor=#00000000内的x和y轴信息之后添加layout()，但是当我运行命令时，我得到加号。我不知道该怎么做，所以任何帮助都表示赞赏。谢谢！

Answer 1

试试吧：

salesplot <-plot_ly(producersales, type="scatter", x=Producer, y=SalesPerSong, color=SongRange, colors=cols, mode="markers", size=SalesPerSong) %>% 
layout(xaxis = a, yaxis = a) %>% 
layout(plot_bgcolor='rgb(254, 247, 234)') %>% 
layout(paper_bgcolor='rgb(254, 247, 234)') #will also accept paper_bgcolor='black' or paper_bgcolor='transparent'

您可以更改rgb数字以满足您的需求。

Answer 2

我发现玩具需要在布局中使用rgba和fig_bgcolor

    Sub Macro4()
'
' Macro4 Macro
'
' Atalho do teclado: Ctrl+t
'
    Selection.TextToColumns Destination:=Range("Selection"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 2), TrailingMinusNumbers:=True
End Sub

Answer 3

请注意，透明背景也适用于导出的图像。这可以使黑色标签文本在某些图像查看应用程序中不可见，包括Windows 10的默认照片工具。

如何设置图表图表在R中具有透明背景？

3 个答案: