小编Ari*_*man的帖子

我有一个5x7矩阵我想绘制为雷达或蜘蛛图？例如:

stars(mtcars[, 1:7], locations = c(0,0), radius = FALSE,
      key.loc=c(0,0), main="Motor Trend Cars", lty = 2)

我希望每一行都是不同的颜色(和/或不同的风格),这样我就可以看出我正在看的东西.

我需要更改HTML文件的价格,它会搜索并将它们存储在数组中,但我必须更改并保存/nuevo-focus.html

price=( `cat /home/delkav/info-sitioweb/html/productos/autos/nuevo-focus.html | grep -oiE '([$][0-9.]{1,7})'|tr '\n' ' '` )

 price2=( $90.880 $0 $920 $925 $930 $910 $800 $712 $27.220 $962 )
 sub (){
 for item in "${price[@]}"; do
    for x in ${price2[@]}; do
      sed s/$item/$x/g > /home/delkav/info-sitioweb/html/productos/autos/nuevo-focus.html
     done
 done
 }

 sub

输出"cat /home/.../nuevo-focus.html|grep -oiE'([$] [0-9.] {1,7})'| tr'\n'''`)"是...

$86.880 $0 $912 $908 $902 $897 $882 $812 $25.725 $715

我有几个txt文件,其中每个txt文件包含3列(A,B,C).A列对所有txt文件都是通用的.现在我想将txt文件和coulmn A组合在一起,只显示一次,而各个文件的其他列(B和C).我使用cbind但是它创建了一个包含A列重复的数据框,我不想要.A列必须只重复一次.这是我试过的R代码:

data <- read.delim(file.choose(),header=T)   
data2 <- read.delim(file.choose(),header=T)
data3 <- cbind(data1,data2)
write.table(data3,file="sample.txt",sep="\t",col.names=NA)

我希望能够从现有的r变量中删除或插入任意子串.我当前的解决方案使用system(),但我确信有一种更简单,更优雅的方式:

> filename <- "remove_this_my_file.txt"
> (file <- system(paste("echo ", filename, "| sed 's/remove_this_\\(.*\\)/\\1/'",sep=""), intern=T))
[1] "my_file.txt"

顺便说一句,这substr()是不好的,因为子字符串的位置可能因文件名而异.