小编Tyl*_*ker的帖子

我对标记很新(虽然它非常容易拾取).我正在开发一个软件包,并试图让wiki页面看起来很好看作为帮助手册.我可以很容易地将YouTube视频链接插入维基页面,但如何嵌入YouTube视频.这可能是不可能的.

我已经读过你可以使用HTML标签,所以我尝试使用这个LINK嵌入HTML ,如下所示:

<object width="425" height="350">
  <param name="movie" value="http://www.youtube.com/user/wwwLoveWatercom?v=BTRN1YETpyg" />
  <param name="wmode" value="transparent" />
  <embed src="http://www.youtube.com/user/wwwLoveWatercom?v=BTRN1YETpyg"
         type="application/x-shockwave-flash"
         wmode="transparent" width="425" height="350" />
</object>

并保存了页面但没有发生任何事情.

1. 是否可以在github wikim页面上嵌入youtube视频？
2. 如果是这样的话？

如何在不重复重复输入require命令的情况下一次加载一堆包？我尝试了三种方法,所有这些方法都会崩溃并烧毁.

基本上,我想为一个将加载它们的函数提供包名称的向量.

x<-c("plyr", "psych", "tm")

require(x)
lapply(x, require)
do.call("require", x)

我正在使用ggplot并且有两个图表,我希望彼此叠加显示.我使用grid.arrangegridExtra来堆叠它们.问题是,无论轴标签如何,我都希望图形的左边缘与右边缘对齐.(问题出现是因为一个图的标签很短而另一个图很长).

问题:
我该怎么做？我没有和grid.arrange结婚,但ggplot2是必须的.

我尝试了什么:
我尝试使用宽度和高度以及ncol和nrow来制作2 x 2网格并将视觉效果放在相对的角落然后玩宽度但我无法在对角处获得视觉效果.

require(ggplot2);require(gridExtra)
A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +coord_flip() 
B <- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip() 
grid.arrange(A, B, ncol=1)

如何将ggplot2图例移动到绘图底部并将其水平旋转？

示例代码:

library(reshape2) # for melt
df <- melt(outer(1:4, 1:4), varnames = c("X1", "X2"))
p1 <- ggplot(df, aes(X1, X2)) + geom_tile(aes(fill = value))
p1 + scale_fill_continuous(guide = guide_legend())

期望的(近似)结果:

我经常使用ggplot2它使渐变很好(点击此处查看示例).我需要在基地工作,我认为scales可以在那里使用来创建颜色渐变,但我严重偏离了如何.基本目标是生成n种颜色的调色板,范围从x颜色到y颜色.解决方案需要在基础上工作.这是一个起点,但没有地方输入n.

 scale_colour_gradientn(colours=c("red", "blue"))

我很清楚:

brewer.pal(8, "Spectral") 

来自RColorBrewer.我正在寻找更类似于ggplot2处理渐变的方法,这些渐变表示我有这两种颜色,我想要沿途有15种颜色.我怎样才能做到这一点？

如果在ggplot中指定轴限制,则删除外围点.这适用于点,但您可能希望绘制与指定范围相交的线,但ggplot range或xlim/ylim方法会删除这些.是否有另一种方法来指定绘图轴范围而不删除外围数据？

例如

require(ggplot2)
d = data.frame(x=c(1,4,7,2,9,7), y=c(2,5,4,10,5,3), grp=c('a','a','b','b','c','c'))
ggplot(d, aes(x, y, group=grp)) + geom_line()
ggplot(d, aes(x, y, group=grp)) + geom_line() + scale_y_continuous(limits=c(0,7))
ggplot(d, aes(x, y, group=grp)) + geom_line() + ylim(0,7)

让我来说,这可能更适合作为html/css问题,但是(a)我对这些技术并不太熟悉,(b)如果可能的话,我想把它全部留在家庭(R家族)中.

我想用Rmarkdown knitr编写学术风格报告(APA 6类型指南).我已经解决了大部分方面但没有分页.我可以手动设置分页符,例如:

# report

```{r setup, include=FALSE}
# set global chunk options
opts_chunk$set(cache=TRUE)
```
------
## Page 1

```{r plot1}
plot(1:10, 1:10)
```
------
## Page 2

在下面.Rmd我想在n行/ n距离之后以编程方式设置那些中断.所以,让我们说8英寸或140行之后.

# report

```{r setup, include=FALSE}
# set global chunk options
opts_chunk$set(cache=TRUE)
```
Initial Text. Yay!

```{r plot1}
plot(1:10, 1:10)
```

More Text.  Outstanding.  What Hadley's not calling it plyr2?

```{r plot2, fig.width=4, fig.height=4}
plot(1:10, 1:10)
```

`r paste(rep("So much text so little time!", 10000))`

如何在n距离之后以编程方式设置分页符.这与LaTeX …

我喜欢reshape2套餐,因为它让生活如此轻松.通常,Hadley在之前的软件包中进行了改进,从而实现了简化,运行速度更快的代码.我想我给tidyr一抡,并从我读我认为gather是非常相似melt的reshape2.但在阅读完文档后,我无法gather完成相同的任务melt.

数据视图

这是一个数据视图(dput帖子末尾的实际数据):

  teacher yr1.baseline     pd yr1.lesson1 yr1.lesson2 yr2.lesson1 yr2.lesson2 yr2.lesson3
1       3      1/13/09 2/5/09      3/6/09     4/27/09     10/7/09    11/18/09      3/4/10
2       7      1/15/09 2/5/09      3/3/09      5/5/09    10/16/09    11/18/09      3/4/10
3       8      1/27/09 2/5/09      3/3/09     4/27/09     10/7/09    11/18/09      3/5/10

码

这是melt时尚的代码,我的尝试gather.我gather怎么能做同样的事情melt？

library(reshape2); library(dplyr); library(tidyr)

dat %>% 
   melt(id=c("teacher", "pd"), value.name="date") 

dat %>% 
   gather(key=c(teacher, pd), value=date, -c(teacher, pd)) 

期望的输出 …

我正在尝试使用长格式的列并将它们扩展为宽格式,如下所示.我想用tidyr用我正在投资的数据处理工具来解决这个问题,但为了使这个答案更加通用,请提供其他解决方案.

这就是我所拥有的:

library(dplyr); library(tidyr)

set.seed(10)
dat <- data_frame(
    Person = rep(c("greg", "sally", "sue"), each=2),
    Time = rep(c("Pre", "Post"), 3),
    Score1 = round(rnorm(6, mean = 80, sd=4), 0),
    Score2 = round(jitter(Score1, 15), 0),
    Score3 = 5 + (Score1 + Score2)/2
)

##   Person Time Score1 Score2 Score3
## 1   greg  Pre     80     78   84.0
## 2   greg Post     79     80   84.5
## 3  sally  Pre     75     74   79.5
## 4  sally Post     78     78   83.0
## 5    sue  Pre     81     78 …

当我在ggplot2中绘制条形图时,我想将条形底部和x轴之间的空间减小到0,同时保持条形图和绘图框上方的空间.我有一个黑客在下面这样做.它很脏,我想再次清洁.有没有办法在没有肮脏的小黑客的情况下实现这种行为？

默认(上面所需的空格但不希望空格下方的空格):

ggplot(mtcars, aes(x=as.factor(carb))) + 
    geom_bar()

使用展开(上面不需要的0空格但是在条形下面有0个空格):

ggplot(mtcars, aes(x=as.factor(carb))) + 
    geom_bar() + 
    scale_y_continuous(expand = c(0,0)) 

肮脏的黑客(我喜欢它,但它......好吧,脏):

ggplot(mtcars, aes(x=as.factor(carb))) + 
    geom_bar() + 
    scale_y_continuous(expand = c(0,0)) +
    geom_text(aes(x=1, y=10.3, label="Stretch it"), vjust=-1)