小编Jer*_*lim的帖子

R中是否有任何函数允许导出HTML表作为R Markdown或相关编织文档的一部分,并允许对表格边界进行详细控制？

例如,想象一下像这样的矩阵:

x <- matrix(c("", "M", "F", "Good", 
"23", "17", "Bad", "23", "4"), nrow=3, byrow=TRUE)

什么命令将输出具有如下功能的正确HTML表:

       --------
       M     F
---------------
 Good  23    17
---------------
 Bad   23    4
---------------

我真的很喜欢zxVim 中的组合键（它可以折叠除文本活动区域之外的所有内容）。然而，这似乎是一个相当危险的组合键。按下x折叠即可删除该折叠。因此，如果z省略，或者被其他一些前面的组合键捕获，则很容易通过x单独按下折叠中的文本来意外删除文本。

鉴于它dd也可以用于删除折叠中的文本，如果我可以禁用x折叠删除工具，那就太好了。

• 如何x禁用折叠删除键？

我经常在已知参数的模拟数据上运行JAGS模型.我喜欢mcmc对象的默认绘图方法.但是,我想abline(v=TRUE_VALUE)为每个建模参数添加一个.这样可以快速检查后验是否合理.

当然我可以手动完成,或者可能重新发明轮子并编写我自己的功能.但我想知道是否有一种基于现有plot方法的优雅方式.

这是一个有效的例子:

require(rjags)
require(coda)

# simulatee data
set.seed(4444)
N <- 100 
Mu <- 100
Sigma <- 15
y <- rnorm(n=N, mean=Mu, sd=Sigma)
jagsdata <- list(y=y)

jags.script <- "
model {
    for (i in 1:length(y)) {
        y[i]  ~ dnorm(mu, tau)
    }
    mu  ~ dnorm(0, 0.001)    
    sigma ~ dunif(0, 1000)
    tau <- 1/sigma^2
}"


mod1 <- jags.model(textConnection(jags.script), data=jagsdata, n.chains=4, 
                   n.adapt=1000)
update(mod1, 200) # burn in
mod1.samples <- coda.samples(model=mod1,
                             variable.names=c('mu', 'sigma'),
                             n.iter=1000)                  
plot(mod1.samples)

我只想运行像abline(v=100)mu和 …

如何通过提供中心点和半径来绘制R中的球体？

例如,像这样:

sphere_3d(center=c(1,1,1), r=2))

该图将出现在三维坐标系上.

在R中,有一个source函数可以从另一个R脚本中获取R脚本.我希望能够在SPSS中做同样的事情.

如何从另一个SPSS语法文件中获取SPSS语法文件？

这似乎是基本的,但我不会得到它.我试图在R中为数据计算频率表,如下所示

1 2 
2 1 
3 1  

我需要运输的CSV输出,其行的双向频率会在数据的A列中所有的唯一项和它的列会在数据的B列的所有独特的条目,单元格的值将是值发生的次数.我已经探索了一些类似的结构,table但我无法以csv格式正确输出值.

样本数据输出:

"","1","2"
"1",0,1
"2",1,0
"3",1,0

我试图在数据框中改变我选择的几个变量名.如何在不键入每个旧名称和每个新名称的情况下执行此操作？我认为下面的代码可能有效,但事实并非如此.我试图将"Econ"附加到数据框中标识的每个现有名称.

    names(wb.misc)[3,13,14,20,22,47,61,62,64,68,73] <- 
         paste("Econ", names(wb.misc)[3,13,14,20,22,47,61,62,64,68,73], sep = "-")

我最近开始使用 JAGS 并在 R 内部调用它。我终于用代码将 jag 链接到了 R

install.packages("rjags")
library(rjags)

并得到输出

Linked to JAGS 3.4.0
Loaded modules: basemod,bugs

我还将 JAGS 模型数据以 BUG 格式保存在单独的文件中（就像我被教导的那样）。

当我尝试运行数据时，我不断收到错误消息：

Error in file(modfile, "rt") : cannot open the connection
In addition: Warning message:
In file(modfile, "rt") :
  cannot open file 'age_problem.bug': No such file or directory
Error in jags.model("age_problem.bug", data = list(X = X, N = length(X)),  : 
  Cannot open model file "age_problem.bug"

和

Error in update(jags, 1000) : object 'jags' not found

我是否遗漏了一些关键步骤？

编辑：示例问题的代码

N …

我有1600万条客户记录,超过100列.我有兴趣在R中加载完整的数据,并希望在其上运行我的R代码.

我使用以下内容在R中加载数据:

read.table("D:/data.txt",header = TRUE, sep = "þ",
           skipNul = TRUE,strip.white = TRUE,
           fill=TRUE, check.names = TRUE,na.string="NA",quote="")

但是我的系统挂了.

是否有任何有效且有效的方式来读取大数据？

我有一些调查数据,其中项目名称是删除了空格的调查文本.我想重新添加空格.显然,这需要一些英语知识.

• 是否有一个R函数可以在删除空格后正确地将空格插入到句子中？
• 或者,是否存在有助于此过程的文本处理功能(例如,通过确定字母序列是单词还是非单词)？

这是一些示例数据,但任何函数都应该适用于任意合理的句子:

x <- c("Shewrotehimalongletter,buthedidn'treadit.", 
      "Theshootersaysgoodbyetohislove.", 
      "WritingalistofrandomsentencesisharderthanIinitiallythoughtitwouldbe.", 
      "Letmehelpyouwithyourbaggage.", 
      "Pleasewaitoutsideofthehouse.", 
      "Iwantmoredetailedinformation.", 
      "Theskyisclear;thestarsaretwinkling.", 
      "Sometimes,allyouneedtodoiscompletelymakeanassofyourselfandlaughitofftorealisethatlifeisn’tsobadafterall.")

来源:http://www.randomwordgenerator.com/sentence.php

这是一个情节,我怎么能用R画出来？