'''
my_data<-iris
''' '''
length.ratio<- my_data$Sepal.Length/my_data$Petal.Length
width_ratio<-my_data$Sepal.Width/my_data$Petal.Width
''' '''
my_data$Species<-as.factor(my_data$Species)
''' #尝试用ggplot2作图
'''
ggplot(my_data,aes(length_ratio,fill=Species))+theme_bw()+
facet_wrap(width.ratio~Species)+ geom_density(alpha=0.5)+
labs(x="Width Ratio", y="Length Ratio")
'''
#实际上,我都不知道哪个 'geom_plot' 是最好的选择。