我一直试图让使用基本绘图函数一些非常微小的线图,但尝试添加细边框当我来脱胶。积小,没有利润 - 用线宽(LWD)边境等于1不可见 这是通过RGUI在Windows 7上,从节约绘图窗口PNG格式。 这里是我的代码: dev.new(width=1.3,height=0.3) par(mar=c(0,0,0,0)) set.seed(13) x <- 1:10 y <- runif(10) plot(x,y,type="n",xaxs="i",yaxs="i",ylim=c(0,1)) polygon(c…

2020年12月2日 0条评论 25点热度 阅读全文

我有指数的两份名单:找到最大的小元素 > k.start [1] 3 19 45 120 400 809 1001 > k.event [1] 3 4 66 300 我需要的是包含,在k.start小于或等于它的k.event,最大值每个元素的列表。期望的结果是 k.desired = c(3,3,45,120) 所以,我试图复制该代码,除了没有一个for循环: for (i in 1:length(k.start){ k.start[max(which(k.event[i] > k.start)…

2020年12月1日 0条评论 61点热度 阅读全文

我想创建一个嵌套的数据框,类似于在tidyr包中嵌套。但我还没有我的数据在data.frame,所以我不能简单df %>% group_by(thing) %>% nest()我有3个列表,对应于我试图把三个列汇集在一起​​。看下面的例子:从单独的列表创建一个嵌套的数据框 library(tidyverse) student = c('bob', 'jane', 'sam') avg_score = c(95, 99, 80) details = lapply(1:3, function(x) data…

2020年11月28日 0条评论 38点热度 阅读全文

我已经问了this similar之前的问题。我已经做了更多的挖掘工作,并且尽可能地减少了重复性问题:pkgdown在Ubuntu中生成,但不是Windows:参数`str`应该是一个字符向量 首先,我创建了一个新包as described here,并构建了一个包含pkgdown的站点。这建立预期站点: pkgdown::build_site() Initialising site ------------------------------------------------------------------…

2020年11月26日 0条评论 40点热度 阅读全文

我已经使用R中的httr包来获得对Fitbit API的访问,但我不确定我应该使用哪个函数从API中提取活动。R包中的什么函数httr执行请求并从Fitbit API导入活动? 任何帮助将不胜感激。请提供该功能的示例代码。 我相信我找到了一个可能的答案。 使用来自此stackoverflow答案/问题的设置输入:httr fitbit API question。 一旦我获得授权,我然后使用httr函数GET。 GET(url= paste0("http://api.fitbit.com/1/user/-/activ…

2020年11月23日 0条评论 57点热度 阅读全文

当动态输入元素添加到UI时,它将触发其已存在的observeEvent。具体来说,请参见下面的示例,其中textInput是在服务器端函数的第一次加载时动态添加的。然后当它呈现时,将触发observeEvent。如何避免运行动态添加输入的初始观察事件 有没有一种方法可以在一般情况下避免添加输入元素的这种触发,特别是我希望以类似的方式测试输入1和测试输入2两个火,即不是在启动时。 的UI.R文件 library(shiny) # Define UI for application that draws a histo…

2020年11月21日 0条评论 33点热度 阅读全文

我正在尝试使用HiveServer2包通过JDBC通过R驱动程序连接到RJDBC。我已经看到了针对各种dbConnect(What arguments can I pass to dbConnect?)将附加参数传递给drivers包装器的广泛解释,但是看来JDBCDriver的情况比其他驱动程序要复杂得多。我可以使用此特定的URL地址HiveServer2连接到url = paste0("jdbc:hive2://", host = 'tools-1.hadoop.srv', ":", port = 10000,…

2020年11月21日 0条评论 37点热度 阅读全文

我试图使用tidyr :: separate()将一些免费(假的)文本分隔为不同的列。如何使用正确的列名将文本分隔为列 输入: structure(list(PathReportWhole = c("SP-37-2784518\nHospital: Random NHS Foundation Trust\nHospital Number: J6044658\nPatient Name: Jargon, Victoria\nDOB: 1943-10-13\nGeneral Practitioner: Dr. Mart…

2020年11月20日 0条评论 36点热度 阅读全文

我的R项目的结构类似于目录/R,/vignettes,/data等。在我的文档RMD之一/vignettes一包knitr设置工作目录我来源于位于/R的脚本。在此脚本中,我使用read.csv()加载位于inst/extdata/的文件。 现在的问题是,默认情况下,Rmd文件中的工作目录是文件所在的目录。我们称之为/Users/Me/Docs/Proj/vignettes。但是,为了使R脚本运行工作目录,需要将其作为项目的主目录(/Users/Me/Docs/Proj)。 我试图使用knitr::opts_chun…

2020年11月20日 0条评论 25点热度 阅读全文

我在列表中有数字data.frame对象,并且想要并行添加它们。不过,我观察到,在网格中添加配对的data.frame对象是重复的,我只能遍历网格的上/下三角并对它们进行平行求和。我为此编写了简单的R函数,但是由于重复求和,我的输出位效率较低。我敢打赌,做这份工作必须有更直观/更高效的方式。有没有人有更好的解决方案,当data.frame对象在网格中时更容易/有效地做到这一点?任何建议,以更好地制定我的这项任务的功能?感谢如何高效地迭代网格中的data.frame对象? 模拟数据 fo <- data.fra…

2020年11月20日 0条评论 26点热度 阅读全文