He visto problemas similares pero no consigo aplicarlo al mío. Cómo (con un data.frame que viene de fuera), plotear de forma reactiva los valores de una columna determinada (a la que he dado nombre "colname"). La idea es que sea un plot reactivo.
- El data.frame que presento está generado para el próximo ejercicio y viene de una matriz 8x8.
- Se nombran las filas y columnas para asemejarlo a una base de datos
- Se presenta una ventana de selección para escoger el Input que queremos, que lo hacemos corresponder con los nombres que le hemos dado a las columnas del data.frame.
- Se presenta una barra para escoger los valores de la futura x
- Intentamos plotear de forma reactiva los valores de la columna que queramos en función de un x que se podría corresponder con el row.names o con simples números por ejemplo
Se obtiene este error:
Aesthetics must be valid data columns. Problematic aesthetic(s): x = num, y = var.
Did you mistype the name of a data column or forget to add after_stat()?
Os comparto el intento de código de Shiny.
##
## GENERAR EL DATA.FRAME
rm(list=ls())
ls()
muestra = data.frame(matrix(1:12, nrow = 8, ncol = 8))
nombres = c()
nombrescol = c()
for (j in 1:(nrow(muestra))){
nombres[j] = paste("Muestra",as.character(j),sep="_")
}
for (j in 1:(ncol(muestra))){
nombrescol[j] = paste("Muestracol",as.character(j),sep="_")
}
row.names(muestra) = nombres
colnames(muestra) = nombrescol
##
## APP
library(shiny)
library(ggplot2)
ui=shinyUI(fluidPage(
# Application title
titlePanel("Prueba"),
mainPanel(
selectInput("var", label = h3("Column to plot"),
choices = c("", colnames(muestra)),
selected = NULL,
width='40%',
multiple = FALSE),
),
fluidRow(
column(width = 4,
plotOutput("plot", height = 300,
)
)
),
column(8,
titlePanel(title=h4("Defined range")),
sidebarPanel(width=7,
sliderInput("num", "Rango propuesto:",min = 1, max = 8,step=1,value=c(4))))
,
)
)
server <- function(input, output) {
dat <- reactive({
test <- muestra[muestra$num %in% seq(from=min(input$num),to=max(input$num), by=1),]
print(test)
})
output$plot <- renderPlot({
ggplot(dat(), aes(x = num, y = var)) + geom_point()
})
}
shinyApp(ui, server)
num
deldata.frame
muestra
, ahí está el error.y=var
dentro del plot. Creo que no estoy siendo capaz de ligarlo bien con el InPut que pido en el desplegable.