0524.R

#0524課堂作業ramen
load(file = "ramen.RData")
library(ggplot2)

## Warning: 套件 'ggplot2' 是用 R 版本 4.2.3 來建造的

#泡麵_包裝長Style條圖
s1<- table(ramen$style)
p.s1<- proportions(s1)
ps.1<- round(p.s1*100,  2)
ps.1

## numeric(0)

ggplot(ramen, aes(x=Style, fill=Style))+
  geom_bar()+
  labs(x= "包裝",y="數量", title = "ramen直條圖geom_bar", subtitle = "筠修")

#泡麵_國家Country&包裝Style長條圖
ggplot(ramen, aes(x=Country, fill=Style))+
  geom_bar()+
  labs(x= "國家&包裝",y="數量", title = "ramen直條圖geom_bar", subtitle = "筠修")

#泡麵_盒狀圖
ggplot(ramen, aes(x=Style, y=Stars, fill=Style))+
  geom_boxplot()+
  labs(x= "包裝",y="數量", title = "ramen盒狀圖geom_bar", subtitle = "筠修")

## Warning: Removed 2 rows containing non-finite values (`stat_boxplot()`).

#泡麵_直方圖
ggplot(ramen, aes(x=Stars, fill=Style))+
  geom_histogram()+
  labs(x= "包裝",y="數量", title = "ramen直方圖geom_bar", subtitle = "筠修")

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

## Warning: Removed 2 rows containing non-finite values (`stat_bin()`).