美学错误

Question

我的情节有问题（R Studio + Shiny）。

错误：

  

聆听http://127.0.0.1:7444聆听       警告：错误：美学必须是长度1或与数据（14）相同：x，y，颜色
      堆栈跟踪（最里面的第一个）：
          68：输出$ plot6th
           1：runApp

脚本/应用：

https://github.com/futer/japan_telecom/

关于自述文件是如何午餐。

第二个问题...... 我已经制作了6个动作按钮，但我不知道如何制作东西： 点击按钮1，只显示图1等...

如果有人帮助我，我会很高兴。

Answer 1

您生成图表的方法是错误的;您应该将data.frame转换为长格式，然后生成图表。由于整个应用程序太大而无法在此处发布，我已经准备好了如何处理您想要处理的数据框：

Vectorize(require)(package = c("dplyr", "tidyr", "ggplot2", "zoo"),
                   character.only = TRUE)

# Sourced from within the app
df %>% 
  gather(key = indicator, value = value, -Date) %>% 
  # Scale is just an example
  mutate(valueScld = scale(value)) %>% 
  # Chart definition
  ggplot(aes(x = Date, y = value, group = indicator, colour = indicator)) +
  scale_x_date(date_breaks = "4 years") +
  geom_line()

然后你会开始得到类似于所需图表的东西：

我建议您在ggplot2生成图表时查看this basic article;转换数据框后，处理美学将变得简单。在您的代码中，您geom_line定义了 x 次，每个群组都是不可能的。