У меня есть сюжет, который я создал сюжетно. Когда я развертываю его в своем блестящем приложении, метки X и Y обрезаются, как вы можете видеть здесь:
Как я могу этого избежать? Если я использую обычный сюжет, надписи не обрезаются, но мне нужно, чтобы сюжет был интерактивным.
Вот мой код для создания сюжета:
ui.r:
#creating app with shiny
library(shiny)
library(shinydashboard)
shinyUI(
dashboardPage(
dashboardHeader(title = "Dashboard"),
dashboardSidebar(
menuItem("Dashboard")
),
dashboardBody(
fluidPage(
box(plotlyOutput("bakePlot")),
box(plotOutput("bakeMonthly"))
)
)
)
)
server.r:
shinyServer(function(input, output){
output$bakePlot <- renderPlotly({
ggplot(sales_bakery, aes(ProductName, ProductSales))+
stat_summary(fun.y=sum,geom="bar",colour="red",fill="red",show.legend = FALSE) +
coord_cartesian(ylim = c(7000, 9500)) + ggtitle("January Sales in Bakery") +
xlab("Category") + ylab("Quantity Sold")+
theme(
axis.title.x = element_blank(),
axis.title.y = element_blank(),
axis.text.x = element_text(angle = 60, hjust = 1),
axis.text.y = element_text(colour = "black", size = 14),
panel.background = element_rect(fill = "white"),
panel.grid.minor = element_blank(),
panel.grid.major = element_blank(),
axis.line = element_line(colour = "black", size = 1),
legend.position = "none",
plot.title = element_text(lineheight = 1.8, face = "bold"))
})
+ theme(plot.margin = unit(c(1, 1, 1, 2), "cm"))
? Последнее число - это левое поле, вы можете поэкспериментировать с этим. - person Maurits Evers   schedule 15.03.2018