R Abschrift Ausgabegröße

Question

Ich möchte eine R-Abschrift-Seite mit einer interaktiven glänzenden App erstellen. Es funktioniert gut, aber die Ausgabe ist in einem sehr kleinen Bereich mit Bildlaufleisten. Ich möchte die Scrollbalken loswerden und die 2 Figuren mit voller Breite und Höhe ohne Scrollbalken anzeigen. Wie kann ich das erreichen?

Ich habe bereits versucht:

options(width = 800) 

Derzeit sieht es wie folgt aus:

--- 
title: "Spielercluster" 
output: html_document 
runtime: shiny 
--- 
```{r,echo=FALSE} 
library(ggplot2) 
library(shiny) 

data<-read.csv2('data.csv',header=T,sep=",") 
rawData<-read.csv2('rawData.csv',header=T,sep=",") 
cluster<-read.csv2('cluster.csv',header=T,sep=",") 
colors<-c("green","red","black") 

ui<-fluidPage(plotOutput("plot1", hover = "plot_hover"), 
       plotOutput("plot2", hover = "plot_hover"), 
       verbatimTextOutput("info") 
) 

server <- function(input, output) { 

    output$plot1 <- renderPlot({ 
ggplot(rawData, aes(koerpergewicht, groesse, color = factor(data$gruppe))) + 
      geom_point() + labs(title = paste(nlevels(factor(colors))))+geom_point(size=8)+geom_text(aes(label=position),vjust=-1.5)+scale_color_manual(name = "Gruppe", 
    labels = c("1 schwer", "2 leicht","3 Zwischengruppe"), 
    values = c(rgb(0.9725490196078431,0.4627450980392157,0.4274509803921569,1),rgb(0,0.7294117647058824,0.2196078431372549,1),rgb(0.3803921568627451,0.6117647058823529,1,1)))+ggtitle("Original") 
    }) 

    output$plot2 <- renderPlot({ 
ggplot(rawData, aes(koerpergewicht, groesse, color = factor(cluster$x))) + 
      geom_point() + labs(title = paste(nlevels(factor(colors))))+geom_point(size=8)+geom_text(aes(label=position),vjust=-1.5)+scale_color_manual(name = "Gruppe", 
    labels = c("1 schwer", "2 leicht","3 Zwischengruppe"), 
    values = c(rgb(0.9725490196078431,0.4627450980392157,0.4274509803921569,1),rgb(0,0.7294117647058824,0.2196078431372549,1),rgb(0.3803921568627451,0.6117647058823529,1,1)))+ggtitle("Berechnet") 
    }) 


    output$info <- renderPrint({ 
    nearPoints(rawData, input$plot_hover, , threshold = 10, maxpoints = 1, 
       addDist = TRUE) 
    }) 
} 

shinyApp(ui, server) 
``` 

Answer 1

Ich habe es erreicht, indem ich meine eigene CSS-Datei hinzugefügt habe. Sie können es wie folgt umfassen:

--- 
title: "Spielercluster" 
output: 
    html_document: 
    css: style.css 
runtime: shiny 
--- 

Dann müssen Sie die Größen der Klasse glänzend Rahmen

.shiny-frame{ 
    width: 1400px; 
    height: 1200px; 
} 

Answer 2

Um global

knitr::opts_chunk$set(fig.width = 12, fig.height=8) 

oder lokal für jeden Ausgang

eingestellt

```{r,echo=FALSE, fig.width = 12, fig.height=8} 

sollte funktionieren.

Answer 3

anpassen, wenn die glänzend in Markdown-Datei drehen, ich glaube, Sie die löschen sollte Server und UI-Funktion, da dies keine reguläre Rmarkdown-Datei ist, dann wird es die ganze glänzende Grafik zeigen. Ich habe dieses Problem auf diese Weise gelöst. können Sie das glänzende in dieses formate ändern. Hier

ist ein Link: change shiny format into rmarkdown

Answer 4

shinyApp(ui, server, options = list(height = 1000)

Beachten Sie die Verwendung des Höhenparameter zu bestimmen, wie viel vertikalen Raum der eingebettete Anwendung besetzen sollte. (http://rmarkdown.rstudio.com/authoring_embedded_shiny.html)