Open slchangtw opened 8 years ago
mpg %>% group_by(class, manufacturer) %>% summarise(mean_hwy = mean(hwy)) %>% dplyr::filter(manufacturer %in% c("audi", "volkswagen", "toyota")) %>% ggplot() + geom_bar(aes(x = class, y = mean_hwy), stat = "identity") + facet_grid( ~ manufacturer, scales = "free_x")
這不是問題,是教學範例~ 龍哥~發文不附圖,此風不可長
mpg %>% group_by(class, manufacturer) %>% summarise(mean_hwy = mean(hwy)) %>% dplyr::filter(manufacturer %in% c("audi", "volkswagen", "toyota")) %>% ggplot() + geom_bar(aes(x = class, y = mean_hwy), stat = "identity") + facet_grid( ~ manufacturer, scales = "free_x")