Parallel coordinate plot with jitter

pcp_jitter.R

library(dplyr)
library(tidyr)
library(ggplot2)

df1 <- mutate(iris, id=1:n()) %>% 
  pivot_longer(1:4)

ggplot(df1,aes(x=name,y=value,group=id, colour = Species))+
  geom_line(alpha=0.5)+
  guides(colour=guide_legend(override.aes = list(alpha=1, linewidth=1)))+
  scale_color_brewer(palette = "Set2")+
  theme_bw(16)
ggsave("iden_x.png")

ggplot(df1,aes(x=name,y=value,group=id, colour = Species))+
  geom_line(alpha=0.5, position = position_jitter(width=0.2, height = 0, seed = 123))+
  guides(colour=guide_legend(override.aes = list(alpha=1, linewidth=1)))+
  scale_color_brewer(palette = "Set2")+
  theme_bw(16)
ggsave("jitter_x.png")