这是x \ y使用数学符号.假设
x <- c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,2,1,1,1,3)
y <- c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1)
Run Code Online (Sandbox Code Playgroud)
如何获得一个包含x中所有不在yie中的值的向量,结果应为:
2,1,1,3
Run Code Online (Sandbox Code Playgroud)
还有一个类似的问题在这里.但是,没有一个答案返回我想要的结果.
data <- read.delim("C:\\test.txt", header = FALSE, sep = "$$$$$")
Error in scan(file, what = "", sep = sep, quote = quote, nlines = 1, quiet = TRUE, :
invalid 'sep' value: must be one byte
Run Code Online (Sandbox Code Playgroud)
为什么会有这样的限制?我能克服它吗?
有没有办法计算复杂矩阵的行列式?
F4<-matrix(c(1,1,1,1,1,1i,-1,-1i,1,-1,1,-1,1,-1i,-1,1i),nrow=4)
det(F4)
Error in determinant.matrix(x, logarithm = TRUE, ...) :
determinant not currently defined for complex matrices
library(Matrix)
determinant(Matrix(F4))
Error in Matrix(F4) :
complex matrices not yet implemented in Matrix package
Error in determinant(Matrix(F4)) :
error in evaluating the argument 'x' in selecting a method for function 'determinant'
Run Code Online (Sandbox Code Playgroud) 我需要你的帮助才能使用函数sendmail {sendmailR}从R中发送包含希腊语文本的电子邮件.
我尝试使用这个功能iconv,但它没有用
subject <- iconv("text in greek", to = "CP1253")
sendmail(from, to, subject, msg, control=list(smtpServer="blabla"))
Run Code Online (Sandbox Code Playgroud)
邮件立即到达,但希腊字符不可读.有任何想法吗?
编辑
提出的另一个问题:第二个论点to接受一个收件人.如果想将其发送给多个人怎么办?(我想会尝试将功能提供给收件人矢量) - 好的,这很有用sendmail.但是,我并不完全满意,因为每个收件人都无法知道还有谁收到了邮件.
我尝试过这样的事情
file_in <- file("myfile.log","r")
x <- readLines(file_in, n=-100)
Run Code Online (Sandbox Code Playgroud)
但我还在等......
任何帮助将不胜感激
我的.Rmd文件包含多语言文字.当我将生成的html页面加载knit2html到我的joomla网站时,多语言文本已被方块替换.你知道一种方法来请求一个utf-8编码的HTML页面,或任何其他方法来克服这个问题?
而不是当前构成图例关键字的灰色背景上的彩色线条,我希望在关键标签旁边放置正方形或彩色圆圈,以便颜色易于看见.我怎样才能做到这一点?以下是一个用作示例的代码段:
mry <- do.call(rbind, by(movies, round(movies$rating), function(df) {
nums <- tapply(df$length, df$year, length)
data.frame(rating=round(df$rating[1]), year = as.numeric(names(nums)),
number=as.vector(nums))
}))
ggplot(mry, aes(x=year, y=number, colour=factor(rating))) + geom_line() +
scale_colour_brewer(palette="YlGnBu")
Run Code Online (Sandbox Code Playgroud) 我试图lm在Rmd文件中包含一个对象的摘要,使用如下代码,但它不起作用.你能帮帮我吗?
```{r summary_lm, results='asis', echo=FALSE, comment=NA}
library(apsrtable)
my_model <- lm(y ~ x, data = data.frame(y = rnorm(10), x = 1:10))
res <- apsrtable(my_model) # my_model is a linear regression model (lm)
cat("$$latex \n",res,"\n$$ \n")
```
Run Code Online (Sandbox Code Playgroud) 我尝试使用DBI包连接到Sybase数据库,但查询不能正确返回希腊字符.
与SQL Server的连接相同.以下是dbConnect命令的示例:
library(odbc)
con <- dbConnect(odbc::odbc(), .connection_string = "Driver={SQL Server};server=ATLAS;database=master;trusted_connection=true")
Run Code Online (Sandbox Code Playgroud)
我使用RODBC(使用相同的系统DSN)时没有问题
表内容:
> sessionInfo()
R version 3.4.1 (2017-06-30)
Platform: i386-w64-mingw32/i386 (32-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1
Matrix products: default
locale:
[1] LC_COLLATE=Greek_Greece.1253 LC_CTYPE=Greek_Greece.1253 LC_MONETARY=Greek_Greece.1253 LC_NUMERIC=C
[5] LC_TIME=Greek_Greece.1253
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] odbc_1.1.1
loaded via a namespace (and not attached):
[1] bit_1.1-12 compiler_3.4.1 hms_0.3 DBI_0.7 tools_3.4.1 tibble_1.3.4 yaml_2.1.14 Rcpp_0.12.12 bit64_0.9-7
[10] blob_1.1.0 …Run Code Online (Sandbox Code Playgroud) r ×10
windows ×3
knitr ×2
r-markdown ×2
delimiter ×1
email ×1
encoding ×1
file-io ×1
ggplot2 ×1
htmlwidgets ×1
latex ×1
matrix ×1
rpivottable ×1
rstudio ×1
smtp ×1
sql-server ×1
sybase ×1
text ×1
utf-8 ×1
vector ×1