R Notebook

#CD45+
View(treated)
ggplot(treated, aes(x=Mice, y=CD45 )) +
  geom_point(size=2, shape=23)

#CD3+
ggplot(data=treated, aes(x=Mice , y=CD3 ))+
  geom_point() + xlab('Mice')

#CD4+
ggplot(data=treated, aes(x=Mice , y=CD4 ))+
  geom_point() + xlab('Mice')

#CD4+/FOXP3+
ggplot(data=treated, aes(x=Mice , y= CD4FOXP3 ))+
  geom_point() + xlab('Mice')

#CD8
ggplot(data=treated, aes(x=Mice , y=CD8 ))+
  geom_point() + xlab('Mice')

#CD45+
View(untreated)
ggplot(untreated, aes(x=Mice, y=CD45 )) +
  geom_point(size=2, shape=23)

#CD3+
ggplot(data=untreated, aes(x=Mice , y=CD3 ))+
  geom_point() + xlab('Mice')

#CD4+
ggplot(data=untreated, aes(x=Mice , y=CD4 ))+
  geom_point() + xlab('Mice')

#CD4+/FOXP3+
ggplot(data=untreated, aes(x=Mice , y= CD4FOXP3 ))+
  geom_point() + xlab('Mice')

#CD8
ggplot(data=untreated, aes(x=Mice , y=CD8 ))+
  geom_point() + xlab('Mice')

View(untreated_and_treated)

There were 22 warnings (use warnings() to see them)

#CD45+
ggplot(data=untreated_and_treated, aes(x=Mice , y=CD45 , color= Treatment))+
  geom_point() + xlab('Mice')

#CD3+
ggplot(data=untreated_and_treated, aes(x=Mice , y=CD3 , color= Treatment))+
  geom_point() + xlab('Mice')

#CD4+
ggplot(data=untreated_and_treated, aes(x=Mice , y=CD4 , color= Treatment))+
  geom_point() + xlab('Mice')

#CD4+/FOXP3+
ggplot(data=untreated_and_treated, aes(x=Mice , y=CD4FOXP3 , color= Treatment))+
  geom_point() + xlab('Mice')

#CD8
ggplot(data=untreated_and_treated, aes(x=Mice , y=CD8 , color= Treatment))+
  geom_point() + xlab('Mice')