R-可视化--ggplot绘制散点图添加边际图
示例数据 1 2 3 4 5 6 7 8 9 10 11 12 data("mtcars") df <- mtcars df$name <- rownames(df) df$cyl <- as.factor(df$cyl) head(df[,c("name","cyl","mpg","wt")]) # name cyl mpg wt # Mazda RX4 Mazda RX4 6 21.0 2.620 # Mazda RX4 Wag Mazda RX4 Wag 6 21.0 2.875 # Datsun 710 Datsun 710 4 22.8 2.320 # Hornet 4 Drive Hornet 4 Drive 6 21.4 3.215 # Hornet...