一个拼图的函数,来自ggExtra 包
library('ggplot2')
library('ggExtra')
p <- ggplot(`iris`, aes_string('Sepal.Length', 'Sepal.Width')) +
aes_string(colour = 'Species') +
geom_point() + theme_bw(15)

ggExtra::ggMarginal(
p,
type = 'density',
margins = 'both',
size = 5,
colour = '#FF0000',
fill = '#FFA500'
)

网友评论