小编unc*_*ool的帖子

%>%当我从多个列表绑定行时，我想使用 dplyr 包（如管道运算符:）。

现在的问题是我还需要将列表名称添加到列中。有了do.call(rbind, list)这种自动发生的，什么是dplyr相同呢？

我已经尝试过list.object %>% rbind_all()，list.object %>% bind_rows它在没有列表名称的情况下提供了相同的效果。

得到一个简短的问题.我正在尝试使用下面的代码删除vector元素.但我得到的是character(0)返回而不是其他的向量元素.

我做错了什么？

> str(ticker.names)
 chr [1:10] "AAK.ST" "ABB.ST" "ALFA.ST" "ALIV-SDB.ST" "AOI.ST" "ASSA-B.ST" "ATCO-A.ST" "ATCO-B.ST" "AXFO.ST" "AXIS.ST"
> ticker.names[! 'AAK.ST' %in% ticker.names]
character(0)

我正在编写一些操作其他办公应用程序(办公室)的代码.当我编写代码时,我想让VBE帮助我处理属性和函数,就像链接到excel的那些一样.

这是怎么做到的？例如,当我输入word_doc并添加一个点后,我希望VBE给我"书签"作为下拉选项.就像我将word_doc设置为打开excel文件一样.

word_doc - >设置word_doc = word_app.documents.Open("C:\ Users\sjan\Desktop\MailingLetter.docx")

我有一个列表，如下所示。现在我尝试将列表中每个 data.frame 中的所有 rowname 设置为NULL，以便每个 data.frame 都以 1 开头，因为它是 rowname。但不知何故它无法正确执行。

我的 lapply 声明有问题，但我不知道是什么。

代码

  20function  <- function (return.query) {

  by.areaSize  <- split(return.query, return.query$areaSize, drop = FALSE)

  lapply(by.areaSize, FUN = function(x) rownames(x)  <- NULL)


  return(by.areaSize)
}

我正在申请 lapply 的列表

summary(x.split)
    Length Class      Mode
0   28     data.frame list
10  28     data.frame list
20  28     data.frame list
30  28     data.frame list
40  28     data.frame list
50  28     data.frame list
60  28     data.frame list
70  28     data.frame list
80  28     data.frame list …

我偶然发现了一个编译错误，但不知道问题出在哪里。当尝试将符号更改为输入变量（ TickerID ）时，我收到错误，否则在输入例如“yhoo”作为雅虎股票名称时工作得很好。

代码

Private Sub CmdBtn_Add_Click()
'---------------------------------------------------------------------------------------'
' Checks that inputted ticker name is correct and calls import class after confirmation
'---------------------------------------------------------------------------------------'

' General Variables---------'
  Dim TickerID As String: TickerID = UCase(Add_Instrument.TxtBox_Instrument.Value)
'--------------------------'

    'Check if input field is not empty
    If TickerID = "" Or Application.WorksheetFunction.IsText(TickerID) = False Then
        MsgBox "Please provide a valid ticker ID"
        Exit Sub
    End If

    Debug.Print TickerID

    'Check Ticker name exists through YQLBuilder class
    Dim YQLBuilder As YQLBuilder: Set YQLBuilder = New YQLBuilder
    Call …

我已经阅读了文档,我认为我的代码应该是正确的,但输出中的点之间仍然没有线.怎么了？

x'轴是离散的,y轴是连续的.

我的代码

 point.sqrmPrice  <- ggplot(overview.df, aes(x = areaSize, y = sqrmPrice)) + 
      geom_line() +
      geom_point() + 
      scale_y_continuous(breaks = c(seq(min(overview.df$sqrmPrice), max(overview.df$sqrmPrice), by = 10000) )) + 
      theme_bw()

我对R中的字符串操作相当新.我有一个案例,我在foor循环中使用了几个匹配的替换,因此必须依赖gsub.

现在我有一个字符串(说明性示例),"今天是美好的一天"

其中我只想使用"今天是"模式,并将其替换为"我的价值"

但是我需要选择其余字符串的元字符是什么？

我的尝试

gsub("Today is+.", "My value", myobject)

现在这只在"今天是"之后选择一个值,我怎么能让它一直运行？

我正在尝试在我的操作中尽可能多地使用 dplyr。现在我有一个简单的向量，其中包含我想在colnames()data.table 中替换的字符串元素。

我阅读了一些帖子并尝试过，但无法理解它应该是什么样子。

我的代码

> head(tickerData)
           AAK.ST.Open AAK.ST.High AAK.ST.Low AAK.ST.Close AAK.ST.Volume AAK.ST.Adjusted
2007-01-02       199.5       199.5      195.0        198.0         74400          159.54
2007-01-03       198.0       202.5      196.5        202.5         79100          163.17
2007-01-04       201.0       206.0      200.0        204.0        258500          164.38
2007-01-05       204.0       207.0      204.0        205.5         42100          165.59
2007-01-08       205.0       205.0      201.5        205.0        155300          165.18
2007-01-09       203.0       205.0      202.0        204.0        149000          164.38

> colName <- c('Open', 'High', 'Low', 'Close', 'Volume', 'Adj.Close')

> tickerData <- tickerData %>% ggplot2::fortify() %>%
+     # rename
+     rename(.dots = setNames(colName, …

我一直在网上搜索,但找不到快速的答案.我在哪里放置我的包需要的库,以便在加载我的包时也加载它们？

据我了解,文件中的imports参数DESCRIPTION只会在系统当前不存在的情况下安装这些软件包.但是library(ggplot2)在一个包中写入的解决方案是什么,或者我应该为每个脚本分别编写它？

当我在一个新的R会话中写入devtools::load_all()并加载我的包时,我的包依次加载的库都没有被加载.