按列的ggplot方面

Question

我在这里有这个数据集，想知道如何创建一个 ggplotted 图，其中 x = 年份、y = market_book_ratio、return_on_capital、return_on_equity 和 return_on_assets。我知道这是很多变量，所以我想对这些变量进行分面。理想情况下，我的图表在 x 轴上有年份，y 值将是每个方面的每个变量，公司显示为不同的颜色......这在 ggplot 中可能吗？

我试过了：

 data %>% ggplot(aes(x = year, y = market_book_ratio, color = company)) +
         geom_line() +
         xlab("Year") +
         ylab("Market-To-Book Ratio") +
         facet_wrap(~.)

Answer 1

上面给出的答案很有用。但我想重写一个更完整的版本，也许你也会发现它有帮助。我将 4 列视为描述

library(dplyr)
library(tidyr)

data_long <- data %>%
    gather(Description, value, market_book_ratio:return_on_assets)

Company_analysis <- ggplot(data_long, aes(x = year, y= value, 
                           fill = Description), xlab="") +
    geom_bar(stat="identity", width=.5, position = "dodge") +
    labs(title="Company Figures") +
    theme(axis.text.x = element_text(angle = 25, hjust = 1)) +
    facet_wrap(~company)

它看起来不错，但如果不是，那么你尝试将 纠正x=year为x=company，facet_wrap(~company)并facet_wrap(~year)

希望能帮助到你。