.data_inh <- tcells$raw_data[["cd3cd28icam2+u0126"]] %>% mutate(Mek = .1, Mek = jitter(Mek, 50)) .data <- tcells$raw_data[["cd3cd28icam2"]] plot(.data_inh$Raf, .data_inh$Mek, xlab = "Raf", ylab = "Mek", xlim = c(0, 310), ylim = c(0, 310)) plot(.data$Raf, .data$Mek, xlab = "Raf", ylab = "Mek", xlim = c(0, 310), ylim = c(0, 310))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.