Question

假设你有一个角色向量：

char <- c("one", "two", "three")

当您引用索引值时，您将获得以下内容：

> char[1]
[1] "one"

如何从返回值中删除引号以获得以下内容？

[1] one

Answer 1

试试noquote（a）

noquote（ “a”）的

[1] a

Answer 2

as.name(char[1])会起作用，虽然我不确定你为什么真的想要这样做 - 引号不会在paste中被转移例如：

> paste("I am counting to", char[1], char[2], char[3])
[1] "I am counting to one two three"

Answer 3

返回值中没有引号，仅在显示值时print（）的默认输出中。尝试

> print(char[1], quote=FALSE)
[1] one

或

> cat(char[1], "\n")
one

查看没有引号的值。

Answer 4

您将使用R的'符号'（与R'中的'类型'相混淆的Quantmod的'符号'（与某些金融事物的代码有关的术语）。

你说过：

我有一个股票的字符向量我传递给的符号 quantmod :: getSymbols（）和函数返回符号没有引号的环境

差不多。它的作用是在指定环境中使用这些名称创建对象。我认为你想要做的是通过名字让事情远离环境。为此你需要'得到'。以下是在默认环境中工作的示例代码：

getSymbols（ 'F'，SRC = '雅虎'，return.class = 'TS'） [1]“F”

所以你有一个你想要的东西的字符向量：

> z="F"
> z
[1] "F"

然后是魔术：

> summary(get(z))
     F.Open           F.High           F.Low           F.Close      
 Min.   : 1.310   Min.   : 1.550   Min.   : 1.010   Min.   : 1.260  
 1st Qu.: 5.895   1st Qu.: 6.020   1st Qu.: 5.705   1st Qu.: 5.885  
 Median : 7.950   Median : 8.030   Median : 7.800   Median : 7.920  
 Mean   : 8.358   Mean   : 8.495   Mean   : 8.178   Mean   : 8.332  
 3rd Qu.:11.210   3rd Qu.:11.400   3rd Qu.:11.000   3rd Qu.:11.180  
 Max.   :18.810   Max.   :18.970   Max.   :18.610   Max.   :18.790

如果你不相信我：

> identical(F,get(z))
[1] TRUE

Answer 5

我只是在猜测，这是在你想要实现的目标吗？

> a <- "a"
> a
[1] "a" # quote yes
> as.factor(a)
[1] a #quote no

Answer 6

我想我正在尝试与原始海报非常相似的东西。 get（）为我工作，虽然图表中的名称没有被继承。这是适用于我的代码。

#install it if you dont have it
library(quantmod)

# a list of stock tickers
myStocks <- c("INTC", "AAPL", "GOOG", "LTD")

# get some stock prices from default service
getSymbols(myStocks)

# to pause in between plots
par(ask=TRUE)

# plot all symbols
for (i in 1:length(myStocks)) {
    chartSeries(get(myStocks[i]), subset="last 26 weeks")
}

Answer 7

如果：

> char<-c("one", "two", "three")

你可以：

> print(char[1],quote = FALSE)

你的结果应该是：

[1] one

Answer 8

最简单的方法是：

> a = "some string"
> write(a, stdout())  # Can specify stderr() also.
some string

如果您在处理打印错误时，可以选择打印到stderr。

Answer 9

nump功能：）

> nump <- function(x) print(formatC(x, format="fg", big.mark=","), quote=FALSE)

正确答案：

x＆lt; - 1234567890123456

> nump(x)

[1] 1,234,567,890,123,456

Answer 10

这是结合noquote和paste的一个：

noquote(paste("Argument is of length zero",sQuote("!"),"and",dQuote("double")))


#[1] Argument is of length zero ‘!’ and “double”

Answer 11

尝试以下操作：（即使[1]也将被删除）

> cat(noquote("love"))
love

否则只使用noquote

> noquote("love")
[1] love

从R中的字符向量中删除引号

11 个答案: