简书如何设置黑底白字可复制的代码块

   1. Identify differential expressed genes across conditions

 > t.cells <- subset(immune.combined, idents = "CD4 Naive T")
Idents(t.cells) <- "stim"
avg.t.cells <- log1p(AverageExpression(t.cells, verbose = 
FALSE)$RNA)

avg.t.cells$gene <- rownames(avg.t.cells)

cd14.mono <- subset(immune.combined, idents = "CD14 Mono")

Idents(cd14.mono) <- "stim"
avg.cd14.mono <- log1p(AverageExpression(cd14.mono, verbose = FALSE)gene <- rownames(avg.cd14.mono)

genes.to.label = c("ISG15", "LY6E", "IFI6", "ISG20", "MX1", "IFIT2", "IFIT1", "CXCL10", "CCL8")

p1 <- ggplot2(avg.t.cells, aes(CTRL, STIM)) + geom_point() + ggtitle("CD4 Naive T Cells")
p1 <- LabelPoints(plot = p1, points = genes.to.label, repel = TRUE)
p2 <- ggplot2(avg.cd14.mono, aes(CTRL, STIM)) + geom_point() + ggtitle("CD14 Monocytes")
p2 <- LabelPoints(plot = p2, points = genes.to.label, repel = TRUE)
plot_grid(p1, p2

献给写作者的 Markdown 新手指南
https://www.jianshu.com/p/q81RER
简书如何贴代码（图文介绍，一看就会）
https://www.jianshu.com/p/c30683df0d0a
简书黑色代码块设置
https://www.jianshu.com/p/9b0d566ed3dc
Markdown 教程
http://www.markdown.cn/
HTML 教程- (HTML5 标准)
https://www.runoob.com/html/html-tutorial.html