小编mon*_*nes的帖子

在R中以Year.decimal形式转换日期

我有一个ts列,以十进制格式保存多年,即

1988.0
1988.25
1988.5
1988.75
Run Code Online (Sandbox Code Playgroud)

等等.我需要将其导出为.csv文件,日期"DD-MM-YYYY"格式为.

我该怎么做呢?

r date date-conversion

14
推荐指数
2
解决办法
6983
查看次数

将出版日期中的列更改为r中的年龄

我是第一次使用data.table.

我的桌子上有一个大约400,000年的专栏.我需要将它们从出生日期转换为年龄.

做这个的最好方式是什么?

r date-of-birth

11
推荐指数
3
解决办法
3万
查看次数

使用ggplot绘制带图例的图像

我想使用ggplot2将OHS事件映射到医院平面图的PNG上.我曾尝试以ggimage的形式阅读这张非地理地图.

ICU平面图

到目前为止,我已经尝试了以下数据集(14462)的观察结果.

示例数据集

toy <- data.frame(patient_ID = c(1001,1001,1002,1003,1004), 
               SEX = c("M","M","F","F","F"),
              phenotype = c("Psychiatric","Psychiatric", "Cardio",
                            "Cancer","Psychiatric"),
                            x = c(0.5737, 0.5737, 0.6968, 0.4704, 0.6838),
                            y= c(0.3484, 0.3484, 0.62, 0.5216, 0.2486))
Run Code Online (Sandbox Code Playgroud)

我曾尝试将文件作为光栅读取,然后使用ggmaps,但难度不是传说.

library(ggmap)
library(png)
library(ggplot2)
library(data.table)

toy <- fread("toy.csv")

# read in image 

r <- readPNG("ICU-crop.png")

#use ggimage to convert to plot and add gender
ggimage(r, scale_axes = TRUE) +
  geom_point(aes(x = x, y = y, colour = SEX), data = toy,
             size = I(1), fill = NA)
Run Code Online (Sandbox Code Playgroud)

我真的很想使用ggplot但需要传说.我不知道我可以使用什么其他方法来ggplot PNG.

r raster ggplot2 ggmap ggimage

5
推荐指数
1
解决办法
360
查看次数

向图像添加坐标以用作 R 中的 Leaflet、Shiny 和 Shinydashboard 包中的地图

我计划使用 Leaflet、Shiny 和 Shinydashboard 创建一个带有医院 OHS 事件标记的交互式地图,沿着以下用于交互式地图和直方图的真棒模板

我的问题是我没有坐标参考系统,因为这不是地理对象(没有纬度和经度)。它也是光栅形式。

如何将下面的平面图制作成具有 CRS(坐标参考系统)的东西,可以像地图一样对待。东区 2

也就是说,我希望能够平移、缩放、添加标记等。

似乎有一种方法可以使用 Java 来做到这一点,但是我希望在 R 中做到这一点,因为我不熟悉 Java。见坐标到空间地图

r leaflet shiny shinydashboard

5
推荐指数
1
解决办法
1518
查看次数

根据data.table中的逻辑字符串匹配将值分配给新列

我有一个庞大的学生数据集,其中有荣誉学生的非标准命名惯例.我需要创建/填充一个新列,它将根据单词"Honors"返回Y或N以进行字符串匹配

目前我的数据看起来像这样,有超过200,000名学生

library(data.table)
students<-data.table(Student_ID = c(10001:10005), 
                    Degree= c("Bachelor of Laws", "Honours Degree in Commerce", "Bachelor of Laws (with Honours)", "Bachelor of Nursing with Honours", "Bachelor of Nursing"))
Run Code Online (Sandbox Code Playgroud)

我需要添加第三列,以便在创建新列'Honors'数据表方式后,它将填充如下:

students<-data.table(Student_ID = c(10001:10005), 
                      Degree= c("Bachelor of Laws", "Honours Degree in Commerce","Bachelor of Laws (with Honours)", "Bachelor of Nursing with Honours", "Bachelor of Nursing"), 
                      Honours = c("N","Y", "Y", "Y","N"))
Run Code Online (Sandbox Code Playgroud)

任何帮助将不胜感激.

另外,按数据表的方式我的意思是:

students[,Honours:="N"]
Run Code Online (Sandbox Code Playgroud)

string r multiple-columns data.table

1
推荐指数
1
解决办法
138
查看次数

删除具有特定字符串值的多行

我有一个包含几百列的数据框。我想删除值为“跳过项目”或“”的选定列的行。

例如,请参见下文。理想情况下,我想删除“动物”和“保险”列包含“跳过的项目”或“”的所有行,但不希望这适用于其他列。

在我的实际数据框中,大约有 34 列我想删除带有这些字符串的列,还有 128 列我不想删除。建议将不胜感激。

dat <- data.frame(animal=c("dog","cat","Item skipped", ""), Insurance=c("Y", "N","Item skipped",""), condition = c("",
                  "Asthma","Item skipped",""), age = rep(c(6,10), each = 2))
Run Code Online (Sandbox Code Playgroud)

r dplyr purrr

0
推荐指数
1
解决办法
775
查看次数