Chargement...
 
Imprimer

r_demo10_clickme

Testing the clickme package: https://github.com/nachocab/clickme

Try zooming in and out in the figures below, click the Show names button, hover over points, filter by point names in the search box


Installation

{RR(echo="1")}
r <- getOption("repos")
r"CRAN" <- "http://ftp.heanet.ie/mirrors/cran.r-project.org/"
options(repos=r)

if(!require(devtools)){ install.packages("devtools", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
require("devtools")
if(!require(clickme)){ install_github("clickme", "nachocab") }
{RR}

1st example: rnorm(100)

{RR(echo="1", cacheby="pagename")}
require(clickme)
options(clickme_output_path = getwd() )
clickme(points,
rnorm(100),
title = "Testing Clickme with rnorm(100)",
height = 300, width = 300,
file = "clickme1.html")$iframe(width = 800,
relative_path = "./temp/cache/R_r_demo10_clickme")

  1. try zooming in and out, click the Show names button, hover over points

{RR}

2nd example: letters


{RR(echo="1", cacheby="pagename")}
require(clickme)
options(clickme_output_path = getwd() )

  1. fancy

n <- 500
clickme(points,
x = rbeta(n, 1, 10), y = rbeta(n, 1, 10),
names = sample(letters, n, r = T),
color_groups = sample(LETTERS1:3, n, r = T),
title = "Testing Clickme with letters",
height = 300, width = 300,
file = "clickme2.html")$iframe(width = 800,
relative_path = "./temp/cache/R_r_demo10_clickme")
{RR}

3rd example: Microarray experiment


{RR(echo="1", cacheby="pagename")}
require(clickme)
options(clickme_output_path = getwd() )
data(microarray)
clickme(points, x = microarray$significance, y = microarray$logFC,
color_groups = ifelse(microarray$adj.P.Val < 1e-4, "Significant", "Noise"),
names = microarray$gene_name,
xlab = "Significance (-log10)", ylab = "Fold-change (log2)",
extra = list(Probe = microarray$probe_name),
title = "Results from a Microarray experiment",
height = 300, width = 300,
file = "clickme3.html")$iframe(width = 800,
relative_path = "./temp/cache/R_r_demo10_clickme")
{RR}