I tried for hours, but I could not succeed. My data frame is simplydf <- as.data.frame(matrix(c(&quo