我有这个样本数据:
cvar <- c("2015-11-01","2015-11-02","All")
nvar1 <- c(12,10,5)
nvar2 <- c(7,5,6)
data <- cbind.data.frame(cvar,nvar1,nvar2)
我只是想在data.frame中添加一个新行,其中包含nvar1和nvar2的总和以及一个字符,所以使用base RI就可以了
data[nrow(data)+1,] <- c("add",sum(data[,2]),sum(data[,3]))
还是更加聪明的事情,但只是为了告诉你我在寻找什么.
我想在管道环境中使用这个简单的命令,所以数据%>%...给了我上面的结果.
感谢任何帮助,谢谢.
我正在寻找一个正则表达式来捕获字符串中前7个字符的所有数字.
这个字符串有12个字符:
A12B345CD678
我想删除A,B因为他们在前7个字符(A12B345)内得到
12345CD678
所以,CD678不应该触及.我目前在R的解决方案:
paste(paste(str_extract_all(substr("A12B345CD678",1,7), "[0-9]+")[[1]],collapse=""),substr("A12B345CD678",8,nchar("A12B345CD678")),sep="??")
这似乎太复杂了.我按照描述将字符串拆分为7,匹配前7个字符中的任何数字,并将其与字符串的其余部分绑定.
寻找一般答案,我目前的解决方案是拆分前7个字符,并匹配此子字符串中的所有数字.
任何帮助赞赏.
当我必须链接ifelse语句时,它看起来像:
ifelse(input=="x","x1",
ifelse(input=="y","x2",
ifelse(input=="z","x3",NA)))
有更聪明的方法吗？我正在考虑创建表然后合并或类似的东西只是为了让代码看起来更好？
此代码应向我显示昨天作为开始和结束日期，并以今天作为最后一个选项。它工作了几个月，我没有改变任何东西，但几周以来我得到了错误的日期。
它显示了我前天是否在本地运行此代码、在我的 ubuntu 服务器上运行此代码或连接到运行此代码的闪亮服务器。
Sys.setenv(TZ='GMT')
shinyApp(
ui <- basicPage(
dateRangeInput("daterange", "Daterange",start = Sys.Date()-1
,end = Sys.Date()-1,max=Sys.Date())
),
server <- function(input,output){}
)
我发现这个问题，In Shiny for R, Why does Sys.Date() return Tuesday's date inside a dateInput? ，并且 start=NULL,end=NULL 我今天得到了正确的结果，但由于我昨天需要，这对我来说不是解决方案。
如果我在控制台中运行 Sys.Date() ，它会在本地和服务器上为我提供正确的日期。仅当我将其作为闪亮的应用程序运行时才会出现此问题。
感谢奥斯卡·福斯莫（Oskar Forsmo）在应用程序中获取系统（“日期”）的建议，我尝试了一些，这给了我正确的日期和时间。
事情变得更加奇怪：
library(shiny)
values <- reactiveValues()
shinyApp(
ui <- basicPage(
uiOutput("timerange"),
textOutput( "today" )
),
server <- function(input,output){
isolate(values$day <- Sys.Date())
output$today <- renderText({
as.character(values$day-1)
})
output$timerange <- renderUI({ dateRangeInput("daterange", "Daterange",start = values$day-1
,end = values$day-1,max=values$day) }) …我正在处理使用 UTF-16LE 编码的 .csv 文件，此方法可以读取文件，但与 read_csv 相比，read.csv 非常慢。
read.csv2(path,dec=",",skip=1,header=T,fileEncoding="UTF-16LE",sep="/t")
不幸的是，我无法使 read_csv 工作，我只得到空行，而且我什至找不到在函数中指定编码的方法。
我无法分享我的数据，但如果有人处理过这种编码，我们将不胜感激。
我正在显示一个表格。在每一行中都应该有一个删除按钮，用于从表中删除元素。
\n\n我的问题是，我不确定如何将元素的 id 传递给视图。
\n\nhtml:
\n\n{% for post in posts %}\n <div>\n <h3>Zuletzt ausgew\xc3\xa4hlt:</h3>\n <p>published: <b>{{ post.pub_date }}</b>\n </p>\n <p>\n name: <b>{{ post.Name }}</b>\n anmeldung: <b>{{ post.get_Anmeldung_display }}</b>\n essen: <b>{{ post.get_Essen_display }}</b>\n <form action="" method="POST">\n {% csrf_token %}\n <input class="btn btn-default btn-danger" name="delete" type="submit" value="L\xc3\xb6schen"/>\n </form>\n </p>\n <p>\n Email: <b>{{ post.Email }}</b>\n </p>\n </div>\n{% endfor %}\n视图.py
\n\nif request.method == \'POST\' and \'delete\' in request.POST:\n Eintrag.objects.filter(pk=id).delete()\n return HttpResponseRedirect(request.path) \n所以我需要将每个帖子的 post.pub_date 传递给视图，我怎样才能做到这一点？
\n在函数中包含执行函数所需的每个库是不错的做法？
例如,我的文件global.r包含了闪亮应用程序所需的几个功能.目前我在文件顶部有所有需要的包.当我切换项目/复制这些功能时,我必须加载包/将它们包含在新代码中.否则所有需要的包都包含在该函数中.当然,我必须使用新的R会话检查所有功能,但我认为从长远来看这可能有所帮助.
当我尝试加载包两次时,它不会再次加载包,但检查它已经加载.我的主要问题是,如果我以这种方式进行重组,是否会减慢我的功能？
我只看过一次练习,库调用函数内部,所以我不确定.
字符串包含'YEAR WEEK',我想将其转换parse_date_time()为日期对象,但我无法使代码工作:
parse_date_time(c("201510"), "YW")
我不必使用lubridate,也可以是其他包.
我正在尝试阅读 pdf 文档（我删除了敏感数据的一些内容原因： https: //ufile.io/bgghw）读入python。我必须使用复选框并根据这些文本和其他文本执行操作。
我尝试了 PyPDF3，但它只提供了损坏的输出，经过一番研究后，我发现 pdfminer 听起来很有前途，但使用 python 2.7 的缺点是。
我不确定是否还有其他包，或者是否有在 python 中使用 pdf 的最佳实践，因为我得到的所有信息都是几年前的，而且大多数信息都是非常相反的。当然，我可以选择最适合我的情况的套餐:)
感谢您的任何建议！
我正在搜索正确的表达式来搜索字符串,如果它只包含数字(0-9)或其他任何东西,并返回true/false.
我得到的是:
> teststring <- "012345c6789"
> any(str_detect(teststring,c(letters,LETTERS)))
[1] TRUE
但是这只检查字母,我想要正确的表达式来检查字符串中是否有任何字符.
如果可能的话,我想从一个带有一个表达式的字符串中提取带小数的数字.
例如,将"2,123.02"转换为"2123.02" - 我目前的解决方案是:
paste(unlist(str_extract_all("2,123.02","\\(?[0-9.]+\\)?",simplify=F)),collapse="")
但我正在寻找的是str_extract_all中的表达式,它只是将它们自己绑定在一起作为一个向量.这是否可以用正则表达式实现？