Как я могу назначить каждому жанру свой цвет и отображать данные этого жанра только на flexdashboard? - PullRequest
Новая
       30

Как я могу назначить каждому жанру свой цвет и отображать данные этого жанра только на flexdashboard?

0 голосов
/ 26 октября 2019

Как получить разные цвета для всех разных жанров, а также просто посмотреть данные для этого конкретного жанра. Я хочу сделать что-то подобное с ползунком года. Я хочу видеть только данные за диапазон года, который я выбрал с помощью ползунка.

title: "Untitled" output: flexdashboard :: flex_dashboard: ориентация: столбцы vertical_layout: заполнить социальные сети: меню source_code:embed

время выполнения: блестящий 

library(flexdashboard)
library(ggplot2)
library(dplyr)
library(plotly)
library(tidyr)
library(readr)
library(shiny)

Hollywood <- read_csv("~/Hollywood.csv")

Hollywood <-Hollywood %>% separate('Year', into = c("a", "year"), sep="(?<=[A-Z])(?=[0-9])")
Hollywood$Genre <- factor(Hollywood$Genre)
Hollywood <- Hollywood %>% select(-('a'))

Входы {.sidebar data-width = 250} 

sliderInput('sampleSize', 'Sample Size', min=1, max=nrow(Hollywood),
            value=min(1000, nrow(Hollywood)), step=50, round=0)

selectInput('x', 'X', c("year", "RottenTomatoes", "AudienceScore","Budget", "WorldwideGross"))
selectInput('y', 'Y', c("year", "RottenTomatoes", "AudienceScore","Budget", "WorldwideGross"))

selectInput('genre', 'Genre', c('None', table(Hollywood$Genre)))

sliderInput("year", "Year", 2007, 2012, value = c(2007, 2012),
          sep = "")

Столбец {data-width =700}

Диаграмма A 

final <- reactive({
  Hollywood[sample(nrow(Hollywood), input$sampleSize),]
})

renderPlot({
  p <- ggplot(final(), aes_string(x=input$x, y=input$y)) + geom_point()

  if (input$genre != 'None')
    p <- p + aes_string(color=input$genre)

  print(p)
})
...