小编B. *_*vis的帖子

我列出了六个人,每个人都有25个号码.这里的数据是通过dput()

data <- structure(list(AAA = structure(c(0.539032790443548, 0.536888048404759, 
0.519687575144773, 0.540104624777809, 0.57386075783306, 0.539805870321112, 
0.538733934351732, 0.530445942604962, 0.521841030809798, 0.541176088266961, 
0.56539960323135, 0.551570726188792, 0.557196928234619, 0.517533387708244, 
0.567518667655521, 0.532295137298835, 0.542247171136739, 0.541948628127994, 
0.533668399132029, 0.546527501435108, 0.529071565146478, 0.575969506937413, 
0.556132191844378, 0.572805370086458, 0.525845566212544), .Dim = c(25L, 
1L)), BBB = structure(c(0.499216657615325, 0.537490952761078, 
0.43385212802169, 0.582152772934407, 0.495717756862187, 0.535025311378272, 
0.43385212802169, 0.607585618769066, 0.51961831826224, 0.477799201847025, 
0.593737672553431, 0.448083953208316, 0.564607973025657, 0.381933810565836, 
0.582152772934407, 0.555267755972877, 0.454004260019714, 0.596126995098342, 
0.469366643373233, 0.489741406245514, 0.39565274890788, 0.523110920308712, 
0.517142992101799, 0.39565274890788, 0.578744364954426), .Dim = c(25L, 
1L)), CCC = structure(c(0.517638997604126, 0.514052704141984, 
0.485341292016175, 0.524805767901646, 0.435170284293271, 0.485341292016175, 
0.481755279544946, 0.506876143514677, 0.421108263752241, 0.488653944275884, 
0.383154152708813, 0.578031931495085, 0.477896667937187, …

我有这些数据

df <- structure(list(IndID = structure(c(16L, 15L, 14L, 13L, 12L, 11L, 
10L, 9L, 8L, 7L, 6L, 5L, 4L, 3L, 2L, 1L), .Label = c("16", "15", 
"14", "13", "12", "11", "10", "9", "8", "7", "6", "5", "4", "3", 
"2", "1"), class = "factor"), StartDate = structure(c(1313042400, 
1312956000, 1313560800, 1363672800, 1374040800, 1374040800, 1374040800, 
1374040800, 1374040800, 1374040800, 1374040800, 1365832800, 1365919200, 
1366178400, 1395727200, 1395813600), class = c("POSIXct", "POSIXt"
)), EndDate = structure(c(1377928800, 1378015200, 1378015200, 
1386572400, 1410760800, 1410760800, 1410760800, 1410674400, 1410760800, 
1406959200, 1399356000, 1427868000, 1394517600, …

提前致谢!

这是我正在使用的日期的样本(n = 10).这些来自excel .csv.我需要将它们转换为可识别的R格式,以便执行基本算术(等等之间的天数).这是dput()的输出.

help.data <- structure(c(55L, 49L, 50L, 52L, 51L, 114L, 53L, 59L, 63L, 48L
), .Label = c("1/15/2012 8:00", "1/16/2012 6:00", "1/18/2012 10:00", 
"1/5/2012 4:00", "1/5/2012 8:00", "1/7/2012 2:00", "1/8/2012 22:01", 
"1/9/2012 16:01", "10/1/2011 4:00", "10/12/2011 8:00", "10/18/2011 0:00", 
"10/19/2011 6:01", "10/2/2011 6:00", "10/21/2011 4:00", "10/21/2011 6:01", 
"10/23/2011 6:01", "10/25/2011 14:00", "10/29/2011 4:01", "10/3/2011 4:00", 
"10/30/2011 6:01", "10/31/2011 6:00", "10/5/2011 2:00", "10/8/2011 2:00", 
"11/1/2011 0:00", "11/16/2011 10:00", "11/19/2011 10:00", "11/19/2011 6:00", 
"11/25/2011 10:01", "11/27/2011 10:00", "11/9/2011 14:01", …

提前致谢.

我正在尝试添加三个不同个体的观察期内未包含的缺失日期值.

我的数据如下所示:

 IndID       Date Event Number Percent
1   P01 2011-03-04     1      2   0.390
2   P01 2011-03-11     1      2   0.975
3   P01 2011-03-13     0      9   0.795
4   P01 2011-03-14     0     10   0.516
5   P01 2011-03-15     0      1   0.117
6   P01 2011-03-17     0      7   0.093

IndID是个人ID( ,P01,).P03 显然是日期.是一个二进制变量,指示是否发生了事件(= no和= yes). 列并没有直接关系,但需要被保存和这里因此包括在内.P06DateEvent01
NumberPercent

我的样本数据框(PostData)包含在下面dput.

对于每一个IndID,第一个和最后Date一个分别是观察期的开始和结束,其中缺少日期.在这里,我的目标是为每个人添加缺少的日期,并0在Event列中添加一个.其他列(Number和Percent)可以保持空白.

这篇文章 …

我有一个非常宽的df(85列),我想转换成长格式使用gather.我没有使用-c(all the columns I do not want to gather)语法来保留列,而是创建了列名的对象并获取错误.

Error in -c(KeepThese) : invalid argument to unary operator

例如,使用iris一些额外的字段

require(tidyr)
iris$Season <- sample(c("AAA", "BBB"), nrow(iris), replace = T)
iris$Var <- sample(c("CCC", "DDD"), nrow(iris), replace = T)

> head(iris)
  Sepal.Length Sepal.Width Petal.Length Petal.Width Species Season Var
1          5.1         3.5          1.4         0.2  setosa    AAA DDD
2          4.9         3.0          1.4         0.2  setosa    AAA CCC
3          4.7         3.2          1.3         0.2  setosa    BBB CCC
4          4.6         3.1          1.5         0.2 …

我有许多栅格图层包含在单个stack以及SpatialPoints包含点坐标的对象中。如果单元格包含一个点，我正在尝试将栅格图层的值更改为 NA。

我在下面提供了一个可重现的示例。然而，把这个放在上下文中，我的真实数据由 10 层“栖息地”（海拔、树冠盖等）组成，它们都包含在一个堆栈中。所述rasters覆盖是大致34×26平方公里。此外，我有大约 10,000 个来自动物的 GPS 位置。

因此，对于可重现的示例。

library(raster)
library(sp)

制作三个rasters并将它们组合成一个stack

set.seed(123)
r1 <- raster(nrows=10, ncols=10)
r1 <- setValues(r1, sample(c(1:50), 100, replace = T))

r2 <- raster(nrows=10, ncols=10)
r2 <- setValues(r2, sample(c(40:50), 100, replace = T))

r3 <- raster(nrows=10, ncols=10)
r3 <- setValues(r3, sample(c(50:55), 100, replace = T))

Stack <- stack(r1, r2, r3)
nlayers(Stack)

使 SpatialPoints

Pts <- SpatialPoints(data.frame(x = sample(-175:175, 50, replace = T),
                                y = sample(-75:75, 50, …

我在 r markdown 脚本中嵌入了一个闪亮的应用程序，该脚本与 HTML 结合在一起。目前，当我编织包含闪亮应用程序的 r markdown 块时，该应用程序不会以完整尺寸显示。r markdown 在较小的“窗口”中包含闪亮的应用程序，我需要使用窗口滑块/滚动器来查看整个应用程序。

我认为这是一个 r markdown 问题，并尝试使用fig.width和更改块尺寸fig.height，但无济于事。

我希望闪亮的应用程序能够完整显示，这样我就可以在单个视图中查看整个绘图和包含的滑块。

任何建议，将不胜感激。下面提供了可重现的 r markdown 脚本，其中包含来自 的数据dput。任何建议将不胜感激。

---
output: html_document
runtime: shiny
---

```{r Packages, include=FALSE}
library(ggplot2)
library(shiny)
```


```{r Data, include=FALSE}
dat <- structure(list(AcquisitionStartTime = structure(c(1L, 2L, 5L, 
6L, 8L, 9L, 10L, 12L, 13L, 14L, 15L), .Label = c("2013.02.09 00:00:00", 
"2013.02.09 06:00:00", "2013.02.09 12:00:00", "2013.02.09 18:00:00", 
"2013.02.10 00:00:00", "2013.02.10 06:00:00", "2013.02.10 12:00:00", 
"2013.02.10 18:00:00", "2013.02.11 00:00:00", "2013.02.11 06:00:00", 
"2013.02.11 …

ggplot我正在尝试向显示每月计数数据的垂直线添加。我的 x 轴是月份作为因子，但我的垂直线代表儒略日。

例如，使用这些数据：

dat <- structure(list(Month = structure(1:12, .Label = c("Jan", "Feb", 
"Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", 
"Dec"), class = c("ordered", "factor")), Data = c(1, 1, 2, 2, 
6, 11, 19, 23, 19, 13, 5, 1)), .Names = c("Month", "Data"), class = "data.frame", row.names = c(NA, 
-12L))

我可以制作以下条形图

ggplot(dat)+ geom_bar(aes(x=  Month, y = Data), stat="identity")

然后，如何使用儒略日 68 和 252 的 x 截距添加两条垂直线geom_vline？

我不知道如何绘制参考每月（因子）x 轴数据上的连续刻度的线。

随着dat下面.如何创建包含除每个IndID的前五行之外的所有值的新数据框子集？换句话说,我想要排除每个IndID的前5行的新数据帧.

set.seed(123)
dat <- data.frame(IndID = rep(c("AAA", "BBB", "CCC", "DDD"), each  = 10),
                  Number = sample(1:100,40))

我已经看过一些选择数据的SO帖子,但我不知道如何删除如上所述.

下面的可重复数据包含2个协变量(cov1和cov2),2个动物(Cat和Dog)和2个季节(Summer和Winter)的随机值.

library(dplyr); library(tidyr)
set.seed(123)
dat <- data.frame(Season = rep(c("Summer", "Winter"), each = 100),
                  Species = rep(c("Cat", "Dog", "Cat", "Dog"), each = 50),
                  cov1 = sample(1:100, 200, replace = TRUE),
                  cov2 = sample(1:100, 200, replace = TRUE))

head(dat)
  Season Species cov1 cov2
1 Summer     Cat   29   24
2 Summer     Cat   79   97
3 Summer     Cat   41   61
4 Summer     Cat   89   52
5 Summer     Cat   95   41
6 Summer …