我最近开始使用RMarkdown进行报告.我正在处理的一份特定报告包含多年来从许多实验中获得的数据的表格和图表 - 快速更新和汇总数据.
虽然我找到了一种方法来为表添加滚动条/滚动框(通过使用Kable)和代码块输出,但我还是无法为绘图添加滚动条.大多数情节并不大,也不是问题,但是对于一个/两个情节,有很多类别,我需要绘图在浏览器窗口大小改变时不调整大小或使整个页面的宽度变大.理想情况下,如果可能,它应该具有特定的大小和固定宽度的滚动框.
这是我想要做的那种情节的一个例子.欢迎任何建议!
---
title: "Add horizontal scrol"
author: "KTy"
date: "9/21/2018"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
require(ggplot2)
```
## R Markdown
### Want to add horizontal scroll bar around a plot
```{r rnorm_box_violin}
set.seed(2300)
xdf1 <- data.frame( var1 = rnorm( 10000 , mean = 5000 , sd = 10) , str1 = rep("a0",10000) )
for ( x in 10:50 ){
n <- sample(x = c(10,0.1) , size = 1)
xdf2 <- data.frame( var1 …我对R很新,所以如果我的问题不清楚,请耐心等待.
我有一个data.frame有5列的"蛋白质",即;
1.protein_name,2.protein_FC,3.protein_pval,4.mRNA_FC,5.mRNA_pval和6.freq.
我试图绘制一个火山图,其中x = log2(protein_FC),y = -log10(protein_pval).然后将点的大小映射到频率和颜色到mRNA_FC.这一切都很好,这是我用过的代码:
ggplot( protein [ which ( protein$freq <= 0.05 ),] , aes( x = log2( protein_FC ) ,
y = -log10 ( protein_pval ) , size = freq , colour = mRNA_FC ,
label = paste(protein_name,",",mRNA_pval), alpha=1/1000)) +
geom_point() + geom_text( hjust = 0 , vjust = 0 , colour = "black" , size = 2.5 ) +
geom_abline( intercept = 1.3 , slope = 0) +
scale_colour_gradient(limits=c(-3,3))
一切都很好,直到这里.但由于实验的性质,数据非常密集mRNA_FC = …
我有几个实验的数据框.我希望计算每次连续实验后获得的唯一值的累积数量.
例如,考虑:
test <- data.frame(exp = c( rep("exp1" , 4) , rep("exp2" , 4), rep("exp3" , 4) , rep("exp4" , 5) ) ,
entries = c("abcd","efgh","ijkl","mnop", "qrst" , "uvwx" , "abcd","efgh","ijkl" , "qrst" , "uvwx",
"yzab" , "yzab" , "cdef" , "mnop" , "uvwx" , "ghij"))
> test
exp entries
1 exp1 abcd
2 exp1 efgh
3 exp1 ijkl
4 exp1 mnop
5 exp2 qrst
6 exp2 uvwx
7 exp2 abcd
8 exp2 efgh
9 exp3 ijkl
10 exp3 qrst …