Hopefully this is right (original dataset):
data.frame(
stringsAsFactors = FALSE,
Total.Viewed.Image = c(10L,20L,10L,10L,20L,
10L,10L,10L,10L,20L,10L,17L,20L,30L,20L,10L,
10L,30L,20L,20L),
Total.Liked.Image = c(NA,5L,4L,NA,9L,2L,7L,
7L,4L,11L,8L,5L,8L,12L,12L,2L,6L,15L,7L,4L),
Mood.Change = c("Improved","Improved",
"Improved","Improved ","Neg_maintained",
"Neg_maintained","Neg_maintained","Improved","Improved","Improved",
"Pos_maintained","Pos_maintained","Pos_maintained",
"Improved","Improved","Improved","Improved",
"Declined","Improved ","Neg_maintained")
)
New dataset I created using df_Improved <- subset(dataframe, Mood.Change == "Improved" :
data.frame(
stringsAsFactors = FALSE,
row.names = c("4", "19", "21", "23", "1", "2", "3", "8", "9", "10"),
Total.Viewed.Image = c(10L, 20L, 20L, 20L, 10L, 20L, 10L, 10L, 10L, 20L),
Total.Liked.Image = c(NA, 7L, NA, 8L, NA, 5L, 4L, 7L, 4L, 11L),
Mood.Change = c("Improved ","Improved ",
"Improved ","Improved ","Improved","Improved",
"Improved","Improved","Improved","Improved")
)
Yeah my actual code used Mood.Change, I just changed it to Mood for the purposes of this post.
Many thanks,
Phoenix