Upload log
Jump to navigation
Jump to search
Below is a list of the most recent file uploads. See the gallery of new files for a more visual overview.
- 12:15, 8 January 2023 Brb talk contribs uploaded File:Reorder.dendrogram.png (<pre> set.seed(123) x <- rnorm(20) hc <- hclust(dist(x)) dd <- as.dendrogram(hc) par(mfrow=c(3, 1)) plot(dd, main = "random dendrogram 'dd'") # not the same as reorder(dd, 1:20) plot(reorder(dd, 20:1), main = 'reorder(dd, 20:1, sum)') plot(reorder(dd, 20:1, mean), main = 'reorder(dd, 20:1, mean)') </pre>)
- 21:37, 7 January 2023 Brb talk contribs uploaded File:ComplexHeatmap2.png (<syntaxhighlight lang="rsplus"> # Simulate data library(ComplexHeatmap) ng <- 30; ns <- 20 set.seed(1) mat <- matrix(rnorm(ng*ns), nr=ng, nc=ns) colnames(mat) <- 1:ns rownames(mat) <- 1:ng # color bar on RHS ind_e <- 1:round(ng/3) ind_m <- (1+round(ng/3)):ng epimes <- rep(c("epi", "mes"), c(length(ind_e), length(ind_m))) row_ha <- rowAnnotation(epimes = epimes, col = list(epimes = c("epi" = "orange", "mes" = "darkgreen"))) # color bar on Top tumortype <- rep(c("carcinoma", "sarcoma"...)
- 12:37, 6 January 2023 Brb talk contribs uploaded File:Fgsea3plots.png (<pre> par(mfrow=c(1,3)) with(fgseaRes, plot(abs(ES), pval)) with(fgseaRes, plot(abs(NES), pval)) with(fgseaRes, plot(ES, NES)) </pre>)
- 14:58, 31 December 2022 Brb talk contribs uploaded File:Filebrowser.png
- 20:07, 25 December 2022 Brb talk contribs uploaded File:DisableDropbox4pm.png
- 15:40, 15 December 2022 Brb talk contribs uploaded File:Geom smooth ex.png (<pre> library(dplyr) #group the data by cyl and create the plots mpg %>% group_by(cyl) %>% ggplot(aes(x=displ, y=hwy, color=factor(cyl))) + geom_point() + geom_smooth(method = "lm", se = FALSE) + theme(legend.position="none") </pre>)
- 15:14, 15 December 2022 Brb talk contribs uploaded File:Geom bar4.png (<pre> ggplot(mpg, aes(x = class)) + geom_vline(xintercept = mpg$class, color = "grey", linetype = "dashed", size = 1) + geom_bar() + theme_classic() + coord_flip() </pre>)
- 15:08, 15 December 2022 Brb talk contribs uploaded File:Geom bar3.png (<pre> ggplot(mpg, aes(x=manufacturer)) + geom_bar() + theme(panel.grid.major.x = element_blank(), panel.grid.minor = element_blank()) </pre>)
- 14:41, 15 December 2022 Brb talk contribs uploaded File:Geom bar2.png (<pre> library(ggplot2) library(scales) library(patchwork) dtf <- data.frame(x = c("ETB", "PMA", "PER", "KON", "TRA", "DDR", "BUM", "MAT", "HED", "EXP"), y = c(.02, .11, -.01, -.03, -.03, .02, .1, -.01, -.02, 0.06)) set.seed(1) dtf2 <- data.frame(x = dtf[, 1], y = sample(dtf[, 2])) g1 <- ggplot(dtf, aes(x, y)) + geom_bar(stat = "identity", fill = "#F8767D") + geom_text(aes(label = paste0(y * 100, "%"), hjust = ifelse(y >= 0, 0, 1))) +...)
- 14:39, 15 December 2022 Brb talk contribs uploaded File:Geom bar1.png (<pre> library(ggplot2) library(scales) library(patchwork) dtf <- data.frame(x = c("ETB", "PMA", "PER", "KON", "TRA", "DDR", "BUM", "MAT", "HED", "EXP"), y = c(.02, .11, -.01, -.03, -.03, .02, .1, -.01, -.02, 0.06)) set.seed(1) dtf2 <- data.frame(x = dtf[, 1], y = sample(dtf[, 2])) g1 <- ggplot(dtf, aes(x, y)) + geom_bar(stat = "identity", aes(fill = x)) + geom_text(aes(label = paste0(y * 100, "%"), hjust = ifelse(y >= 0,...)
- 18:00, 5 December 2022 Brb talk contribs uploaded File:GpartedinfoSanDisk.png
- 15:55, 29 October 2022 Brb talk contribs uploaded File:ExampleRanks.png (<pre> plot(exampleRanks) </pre>)
- 15:39, 29 October 2022 Brb talk contribs uploaded File:FgseaPlotSmallm.png
- 15:15, 27 October 2022 Brb talk contribs uploaded File:DHdialog2.png
- 15:15, 27 October 2022 Brb talk contribs uploaded File:DHdialog1.png
- 09:46, 27 October 2022 Brb talk contribs uploaded File:HC single.png
- 10:48, 20 October 2022 Brb talk contribs uploaded File:1NN better NC.png
- 17:26, 19 October 2022 Brb talk contribs uploaded File:NC better kNN.png (The green color is a new observation (Sensitive). By using the kNN method, it will be assigned to Resistant b/c it is closer to the Resistant group. However, using the NC, the distance of it to the Resistant group centroid is 8.42 which is larger than the distance of it to the Sensitive groups centroid 7.31. So NC classified it to Sensitive. Color annotation: green=LOO obs, black=centroid in each class.)
- 11:03, 12 October 2022 Brb talk contribs uploaded File:Foldchangefilter.png (<pre> LFC <- log2(1.5) x <- c(0, 0, 0, 0, 0, 0, 0, 0, 3.22, 0, 0, 0, 8.09, 0, 0.65, 0, 0, 0, 0, 0, 3.38, 0, 5.63, 7.46, 0, 0, 4.38, 0) plot(x, y = 1:28, xlab="log2 intensity", ylab="samples") abline(v=LFC, lty="dashed") axis(side=3,at=LFC, labels="LFC", tick=FALSE, line=0) </pre>)
- 16:39, 11 October 2022 Brb talk contribs uploaded File:Cvglmnetplot.png (<pre> n <- 100 set.seed(1) x1 <- rnorm(n) e <- rnorm(n)*.01 y <- x1 + e x4 <- x fit <- cv.glmnet(x=cbind(x1, x4, matrix(rnorm(n*10), nr=n)), y=y) plot (fit) </pre>)
- 14:12, 6 October 2022 Brb talk contribs uploaded File:Greedypairs.png
- 11:11, 6 October 2022 Brb talk contribs uploaded a new version of File:Barplot base.png
- 11:06, 6 October 2022 Brb talk contribs uploaded File:Barplot ggplot2.png
- 11:06, 6 October 2022 Brb talk contribs uploaded File:Barplot base.png
- 11:50, 30 August 2022 Brb talk contribs uploaded File:Geomcolviridis.png (Modify the example from https://datavizpyr.com/re-ordering-bars-in-barplot-in-r/ to allow filled colors and facet. <pre> library(tidyverse) library(gapminder) library(viridis) theme_set(theme_bw(base_size=16)) pop_df <- gapminder %>% filter(year==2007)%>% group_by(continent) %>% summarize(pop_in_millions=sum(pop)/1e06) pop_df2 <- tibble(class=rbinom(nrow(pop_df), 1, .5), pop_df) pop_df2 <- pop_df2 |> mutate(pop_in_millions = pop_in_millions-1900) pop_df2 %>% ggplot(aes...)
- 10:31, 30 August 2022 Brb talk contribs uploaded File:ViridisDefault.png (<pre> library(viridis) n = 200 image( 1:n, 1, as.matrix(1:n), col = viridis(n, option = "D"), xlab = "viridis n", ylab = "", xaxt = "n", yaxt = "n", bty = "n" ) </pre>)
- 10:08, 30 August 2022 Brb talk contribs uploaded File:ScaleFillViridisDiscrete.png (See https://r-graph-gallery.com/79-levelplot-with-ggplot2.html <pre> library(ggplot2) # library(hrbrthemes) # Dummy data x <- LETTERS[1:20] y <- paste0("var", seq(1,20)) data <- expand.grid(X=x, Y=y) data$Z <- runif(400, 0, 5) library(viridis) ggplot(data, aes(X, Y, fill= Z)) + geom_tile() + scale_fill_viridis(discrete=FALSE) </pre>)
- 14:19, 29 August 2022 Brb talk contribs uploaded File:Rbiomirgs barall.png
- 14:17, 29 August 2022 Brb talk contribs uploaded File:Rbiomirgs bar.png
- 14:17, 29 August 2022 Brb talk contribs uploaded File:Rbiomirgs volcano.png
- 07:08, 27 August 2022 Brb talk contribs uploaded File:FgseaPlotTop.png
- 06:34, 27 August 2022 Brb talk contribs uploaded File:FgseaPlotSmall2.png
- 06:34, 27 August 2022 Brb talk contribs uploaded File:FgseaPlotSmall.png
- 06:33, 27 August 2022 Brb talk contribs uploaded File:FgseaPlot.png
- 15:02, 23 August 2022 Brb talk contribs uploaded File:ComplexHeatmap1.png (<pre> library(ComplexHeatmap) set.seed(123) ng <- 10; n <- 10 mat = matrix(rnorm(ng * n), n) rownames(mat) = paste0("R", 1:ng) colnames(mat) = paste0("C", 1:n) bin <- sample(c("resistant", "sensitive"), n, replace = TRUE) tgi <- runif(n) # sort the columns by tgi ord <- order(tgi) col_fun = circlize::colorRamp2(range(tgi), c("#DEEBF7", "#084594")) column_ha = HeatmapAnnotation(tgi = tgi[ord], bin = bin[ord], col = list(tgi = col_fun,...)
- 14:19, 22 August 2022 Brb talk contribs uploaded File:Doubledip.png (<pre> ng <- 1000 # number of genes ns <- 100 # number of samples k <- 2 # number of groups alpha <- .001 # cutoff of selecting sig genes set.seed(1) x = matrix(rnorm(ng * ns), nr= ns) # samples x features hc = hclust(dist(x)) plot(hc) grp = cutree(hc, k=k) # vector of group membership ex <- t(x) r1 <- genefilter::rowttests(ex, factor(grp)) sum(r1$p.value < alpha) # 2 hist(r1$p.value) i <- which(r1$p.value < alpha) i1 <- i[1] ; i2 <- i[2] plot(x[, i1], x[, i2], col = grp, pch= 16, cex=1...)
- 10:21, 10 August 2022 Brb talk contribs uploaded File:Ruspini.png (library(cluster) # ruspini is 75 x 2 data(ruspini) hc <- hclust(dist(ruspini), "ave"); plot(hc) # si <- silhouette(groups, dist(ruspini)) # plot(si, main = paste("k = ", 4)) op <- par(mfrow= c(3,2), oma= c(0,0, 3, 0), mgp= c(1.6,.8,0), mar= .1+c(4,2,2,2)) plot(hc) for(k in 2:6) { groups<- cutree(hc, k=k) si <- silhouette(groups, dist(ruspini)) plot(si, main = paste("k = ", k)) } par(op))
- 19:55, 23 June 2022 Brb talk contribs uploaded File:Tidyheatmap.png
- 15:22, 21 June 2022 Brb talk contribs uploaded File:BatchqcPCA.png
- 15:22, 21 June 2022 Brb talk contribs uploaded File:BatchqcDE.png
- 15:21, 21 June 2022 Brb talk contribs uploaded File:BatchqcVariation.png
- 15:20, 21 June 2022 Brb talk contribs uploaded File:BatchqcSummary.png
- 18:02, 4 June 2022 Brb talk contribs uploaded File:Heatmap rdylbu.png
- 10:06, 27 May 2022 Brb talk contribs uploaded File:Inter gg2.png
- 09:51, 27 May 2022 Brb talk contribs uploaded File:Inter gg.png
- 09:51, 27 May 2022 Brb talk contribs uploaded File:Inter base.png
- 09:16, 27 May 2022 Brb talk contribs uploaded a new version of File:Inter base.svg
- 09:04, 27 May 2022 Brb talk contribs uploaded File:Inter base.svg
- 10:08, 26 May 2022 Brb talk contribs uploaded File:LogisticFail.svg (> set.seed(1234); n <- 16; mu=3; x <- c(rnorm(n), rnorm(n, mu)); y <- rep(0:1, each=n) > summary(glm(y ~ x, family = binomial)); plot(x, y))
- 12:56, 10 May 2022 Brb talk contribs uploaded File:ColorRampBlueRed.png
- 19:39, 24 March 2022 Brb talk contribs uploaded File:Rerrorbars.png (<pre> library(ggplot2) df <- ToothGrowth df$dosef <- as.factor(df$dose) library(dplyr) df.summary <- df %>% group_by(dosef) %>% summarise( sd = sd(len, na.rm = TRUE), len = mean(len) ) df.summary p1 <- ggplot(df, aes(dosef, len)) + geom_jitter(position = position_jitter(0.2, seed=1), color = "darkgray") + geom_point(aes(x=dosef, y=len), shape="+", size=8, data=df.summary) + geom_errorbar(aes(ymin = len-sd, ymax = len+sd), width=.2, data = df.summary) df.summary$dose <...)
- 19:37, 24 March 2022 Brb talk contribs uploaded File:Rerrorbar.svg (<pre> library(ggplot2) df <- ToothGrowth df$dosef <- as.factor(df$dose) library(dplyr) df.summary <- df %>% group_by(dosef) %>% summarise( sd = sd(len, na.rm = TRUE), len = mean(len) ) df.summary p1 <- ggplot(df, aes(dosef, len)) + geom_jitter(position = position_jitter(0.2, seed=1), color = "darkgray") + geom_point(aes(x=dosef, y=len), shape="+", size=8, data=df.summary) + geom_errorbar(aes(ymin = len-sd, ymax = len+sd), width=.2, data = df.summary) df.summary$dose <...)
- 14:13, 18 March 2022 Brb talk contribs uploaded File:SnrVScor.png
- 14:10, 18 March 2022 Brb talk contribs uploaded File:CorVSsnr.svg
- 14:15, 5 March 2022 Brb talk contribs uploaded File:AntiX21 mmedia.png
- 22:31, 2 February 2022 Brb talk contribs uploaded File:WewatchJetsonnano-min.png
- 10:11, 17 November 2021 Brb talk contribs uploaded File:Atnormalize.png
- 12:22, 15 September 2021 Brb talk contribs uploaded File:Jupyter.drawio.png
- 09:43, 14 August 2021 Brb talk contribs uploaded File:VscodeR.png
- 16:58, 24 June 2021 Brb talk contribs uploaded File:Infercnv.png
- 10:20, 11 June 2021 Brb talk contribs uploaded File:Hmapseqcolor.png
- 17:07, 30 April 2021 Brb talk contribs uploaded File:BarcodeRanks.png
- 17:01, 30 April 2021 Brb talk contribs uploaded File:Cellrangersum.png
- 20:20, 21 March 2021 Brb talk contribs uploaded File:SsGSEA.png
- 10:50, 24 January 2021 Brb talk contribs uploaded File:Scalefill.png
- 22:29, 2 January 2021 Brb talk contribs uploaded File:Winerating.png
- 21:26, 2 January 2021 Brb talk contribs uploaded File:Rating.png
- 20:56, 2 January 2021 Brb talk contribs uploaded a new version of File:Rating.png
- 20:46, 2 January 2021 Brb talk contribs uploaded File:Rating.png
- 15:28, 7 November 2020 Brb talk contribs uploaded File:Ksnip.png
- 09:43, 26 September 2020 Brb talk contribs uploaded File:Coffeeinteract.png
- 10:48, 24 September 2020 Brb talk contribs uploaded a new version of File:Progpreg.png (<pre> library(magick) u <- c("https://www.ncbi.nlm.nih.gov/books/NBK402284/bin/prognostic_predictive-Image001.jpg", "https://www.ncbi.nlm.nih.gov/books/NBK402284/bin/prognostic_predictive-Image002.jpg", "https://www.ncbi.nlm.nih.gov/books/NBK402284/bin/prognostic_predictive-Image003.jpg", "https://www.ncbi.nlm.nih.gov/books/NBK402284/bin/prognostic_predictive-Image004.jpg", "https://www.ncbi.nlm.nih.gov/books/NBK402284/bin/prognostic_predictive-Image005.jpg", "https://ww...)
- 09:41, 24 September 2020 Brb talk contribs uploaded File:Zlj9991056240002.jpeg
- 09:07, 24 September 2020 Brb talk contribs uploaded File:Progpreg.png (<pre> library(magick) u <- c("https://www.ncbi.nlm.nih.gov/books/NBK402284/bin/prognostic_predictive-Image001.jpg", "https://www.ncbi.nlm.nih.gov/books/NBK402284/bin/prognostic_predictive-Image003.jpg", "https://www.ncbi.nlm.nih.gov/books/NBK402284/bin/prognostic_predictive-Image005.jpg", "https://www.ncbi.nlm.nih.gov/books/NBK402284/bin/prognostic_predictive-Image006.jpg") x1 <- image_read(u[1]) x2 <- image_read(u[2]) x3 <- image_read(u[3]) x4 <- image_read(u[4]) imgU <- image_append(image_s...)
- 10:28, 9 September 2020 Brb talk contribs uploaded File:Rstudiormarkdown.png (RStudio version 1.3.959 on Ubuntu 20.04)
- 14:51, 28 August 2020 Brb talk contribs uploaded File:HtopArmbian.png
- 09:24, 28 August 2020 Brb talk contribs uploaded File:Lipidtable.jpg
- 10:29, 15 July 2020 Brb talk contribs uploaded File:RSEM PDX.png
- 21:15, 3 July 2020 Brb talk contribs uploaded File:PrinterInstall.png
- 17:18, 19 June 2020 Brb talk contribs uploaded File:Airdrop.png
- 09:16, 3 June 2020 Brb talk contribs uploaded File:Bender2005table2.png
- 09:12, 3 June 2020 Brb talk contribs uploaded File:Bender2005.png
- 12:58, 26 May 2020 Brb talk contribs uploaded File:RstudioBuild.png
- 07:44, 25 May 2020 Brb talk contribs uploaded File:GnomeShellExt.png
- 13:54, 16 May 2020 Brb talk contribs uploaded File:Neofetchpopos.png
- 16:39, 4 May 2020 Brb talk contribs uploaded File:Wifiusb.jpg
- 16:59, 3 May 2020 Brb talk contribs reverted File:KMannotation.png to an old version (Reverted to version as of 16:57, 3 May 2020 (EDT))
- 16:58, 3 May 2020 Brb talk contribs reverted File:KMannotation.png to an old version (Reverted to version as of 21:54, 2 May 2020 (EDT))
- 16:57, 3 May 2020 Brb talk contribs uploaded a new version of File:KMannotation.png
- 21:54, 2 May 2020 Brb talk contribs uploaded File:KMannotation.png (<pre> library(survival) sf <- survfit(Surv(time, status) ~ x, data = aml) plot(sf, col=c('red', 'black')) </pre>)
- 13:57, 1 May 2020 Brb talk contribs uploaded File:Logscale.png
- 20:28, 19 April 2020 Brb talk contribs uploaded File:Pitopos.png
- 12:35, 17 April 2020 Brb talk contribs uploaded File:Cvcoxnet.png
- 19:17, 14 April 2020 Brb talk contribs uploaded File:Meldss.png
- 14:55, 13 April 2020 Brb talk contribs uploaded File:Glmnetrelaxcv2.png
- 13:27, 13 April 2020 Brb talk contribs uploaded File:Glmnetrelaxcv.png
- 13:27, 13 April 2020 Brb talk contribs uploaded File:Glmnetrelaxfit.png
- 12:11, 13 April 2020 Brb talk contribs uploaded File:Glmnet4plotn.png (== Summary == <syntaxhighlight lang='rsplus'> library(glmnet) data(QuickStartExample) cvfit = cv.glmnet(x, y) fit = glmnet(x, y) oldpar <- par(mfrow=c(2,2)) plot(cvfit) # mse vs log(lambda) plot(fit) # coef vs L1 norm plot(fit, xvar = "lambda", label = TRUE) # coef vs log(lambda) plot(fit, xvar = "dev", label = TRUE) # coef vs Fraction Deviance Explained par(oldpar) </syntaxhighlight>)
- 12:01, 13 April 2020 Brb talk contribs uploaded File:Glmnet4plot.svg (library(glmnet) data(QuickStartExample) cvfit = cv.glmnet(x, y) fit = glmnet(x, y) oldpar <- par(mfrow=c(2,2)) plot(cvfit) # mse vs log(lambda) plot(fit) # coef vs L1 norm plot(fit, xvar = "lambda", label = TRUE) # coef vs log(lambda) plot(fit, xvar = "dev", label = TRUE) # coef vs Fraction Deviance Explained par(oldpar))
- 11:54, 16 March 2020 Brb talk contribs uploaded File:NeofetchMac.png