multiple ggplot in R

Question

I have dataset in R as follows:

set.seed(123)
data <- as.data.frame(matrix(rnorm(20 * 5, mean = 0, sd = 1), 20, 5))
colnames(data) <- c("Y", paste0("X", 1:4))

and I want to create all possible plots between Y and X's. For a simple plot I can do this:

par(mfrow = c(2, 2))
for (i in seq(ncol(data))[-1]) {
  plot(data[, 1], data[, i], xlab = colnames(data)[i], ylab = "Y")
}

How can create the equivalent plots based on ggplot function. I created the following but I can not make it work.

par(mflow = c(2,2))
for (i in seq(ncol(data))[-1]){
ggplot(data, aes(x = data[,i], y = data[,1])) +
  labs(x = colnames(data)[i], y = "Y") +
  stat_smooth() +
  geom_point(color = "gray40", alpha = .5)
  
}

stefan · Accepted Answer · 2022-09-07 13:45:58Z

3

When using ggplot2 you are most of the time better off by reshaping your data to long or tidy format using e.g. tidyr::pivot_longer. After doing so you could e.g. use facet_wrap to get you plots for each X:

library(tidyr)
library(ggplot2)

data_long <- pivot_longer(data, -Y, names_to = "name", values_to = "value")

ggplot(data_long, aes(x = value, y = Y)) +
  stat_smooth() +
  geom_point(color = "gray40", alpha = .5) +
  facet_wrap(~name)
#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'

answered Sep 7, 2022 at 13:45

stefan

130k6 gold badges42 silver badges84 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

multiple ggplot in R

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related