如何将R代码转换为字符串？
将R代码转换为字符串可以使用deparse()函数。该函数将R代码解析为字符向量，并返回一个包含代码的字符串。
以下是使用deparse()函数将R代码转换为字符串的示例：
# 定义一个简单的R代码
code <- quote({
x <- 1:5
mean(x)
})
# 将R代码转换为字符串
code_str <- deparse(code)
# 打印转换后的字符串
print(code_str)输出结果为：
[1] "{\n x <- 1:5\n mean(x)\n}"在上述示例中，我们首先定义了一个简单的R代码块，并使用quote()函数将其存储在变量code中。然后，我们使用deparse()函数将code转换为字符串，并将结果存储在变量code_str中。最后，我们打印code_str，输出了R代码的字符串表示形式。
请注意，deparse()函数还有一些参数可以用于控制输出结果的格式。你可以查阅R语言官方文档以获取更多关于deparse()函数的详细信息。
推荐的腾讯云相关产品：腾讯云云服务器（CVM） 产品介绍链接地址：https://cloud.tencent.com/product/cvm
相关·内容
2回答
我想转换代码
mean(x)
至
fn(x)
每次我在代码中看到mean。
replace_mean <- function(code) {
substitute(code, list(mean = fn)) # doesn't work
substitute(substitute(code), list(mean = fn)) # doesn't work
}
以上两种方法不起作用。例如。
replace_mean(list(mean(y), mean(x)))
在R中使用NSE进行函数替换的最佳方法是什么？
基础R解决方案优先。
更新示例输出
replace(
浏览 0提问于2019-12-09得票数 1
回答已采纳
4回答
之前买的服务器可以退款么？
费用中心、5折上云
之前买的服务器可以退款么？你这活动力度好大啊
标题：腾讯云云产品新购特惠，五折上云！
地址：https://cloud.tencent.com/act/first_purchase?utm_source=portal&utm_medium=banner&utm_campaign=firstpurchase&utm_term=0109
浏览器信息
Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/55.0.2883.87 Safari/537.36
浏览 1598提问于2018-01-20
在R中，下列几组表达式在功能上是否相似？
assign(x,y)，和eval(parse(text = "x"))，x=as.name("string")get(x)，，deparse(substitute(x))和____ (x=as.string(object))?do.call("<-",list(x, y))
例如，是否可以在下面的批处理过程中使用每个批处理？
## example data tables (requires data.table package I believe)
(dt1 <- data.table(u
浏览 3提问于2021-01-04得票数 0
1回答
如何在创建按组和变量排序的方法的数据前向向量添加名称
r、function、append、variable-names
谢谢你看这个！
我想要一个函数来构建表，显示特定变量的统计数据(如平均值)，这些变量被重新划分为组。
下面是一个功能的开始，工作到一定程度！我使用了一个例子，使用内置的mtcar数据。
MeansbyGroup<-function(var){
M1<-mtcars %>% group_by(cyl)
n1=deparse(substitute(var))
r1<-transpose(M1 %>% summarise(disp=mean(var)))[2,]
}
# EXAMPLE using mtcars
df=MeansbyGroup(mtca
浏览 3提问于2022-11-08得票数 0
我正在寻找get()的反面。
给定一个对象名，我希望直接从该对象中提取表示该对象的字符串。
一个简单的示例，其中foo是我要查找的函数的占位符。
z <- data.frame(x=1:10, y=1:10)
test <- function(a){
mean.x <- mean(a$x)
print(foo(a))
return(mean.x)}
test(z)
将打印：
"z"
我的工作，在我目前的问题中很难实现是：
test <- function(a="z"){
mean.x <- mean(get(
浏览 0提问于2012-05-10得票数 152
回答已采纳
1回答
为什么函数不显示它应该显示的内容？
r、display
我在R中有下面的代码，但是输出有问题，它应该显示一些不同的东西。这就是所显示的
Summary(x, y)
The total square sum is: 17.5The error square sum is: 0
[[1]]
NULL
[[2]]
[1] "\n"
[[3]]
NULL
它本该展示的
The total square sum is: number1
The error square sum is: number2
能帮我查一下吗？
(这是一个示例，实际上我需要显示更多的东西( the standar error is: number3, the
浏览 0提问于2018-11-14得票数 0
回答已采纳
2回答
如何编写自定义管道友好函数？
r、magrittr
我正在尝试使用创建magrittr
例如，我试图编写一个自定义函数来计算列的平均值：
library(magrittr)
custom_function <-
function(.data, x) {
mean(.data$x)
}
mtcars %>%
custom_function(mpg)
但我发现了一个错误：
Error in (function(x, i, exact) if (is.matrix(i)) as.matrix(x)[[i]] else .subset2(x, :
object 'mpg' not found
也许我
浏览 2提问于2020-12-24得票数 1
回答已采纳
3回答
如何在PHP中输出HackerRank的简单数组和挑战？
php、arrays
我只是试着熟悉HackerRank环境，并练习一些问题。
我正在尝试它在Algorithms>Warmups：上的第二次挑战
我已经把它解决了，而且它在我的本地机器上运行得很好。
Code:
<?php
function testSum($n,$x)
{
$sum=0;
$x =explode(" ",$x);
for($i=0;i<$n;$i++)
{
$sum+=$x[$i];
}
echo $sum;
}
$handle = fopen ("php://st
浏览 4提问于2016-04-27得票数 3
回答已采纳
1回答
如何在gtable中存储包含表达式的表？
r、parsing、gwidgets
假设我有一个表，它存储了R会话期间发生的一些事情：
steplist.table <- structure(list(auto.sum = structure(list(step1 = "summary1",
step2 = "summary2"), .Names = c("step1", "step2")), code = structure(list(
step1 = "x(5)", step2 = print("boo")), .Names = c("step1
浏览 0提问于2015-01-01得票数 0
回答已采纳
1回答
我有一个名为df的数据集，其中列a和b各有三个整数。我想要为平均值编写一个函数(很明显，这个函数已经存在；我想编写一个更大的函数，这似乎就是问题正在发生的地方)。但是，此函数返回NA：
mean_function <- function(x) {
mean(df$x)
}
mean_function(a)返回NA，而mean(df$a)返回2。关于R函数是如何处理数据集，还是另一个问题，我有什么遗漏吗？
浏览 3提问于2020-07-15得票数 2
回答已采纳
1回答
强制将函数调用转换为字符串
r、callstack、coercion
我正在尝试理解R中的call对象是什么，并将其强制转换为字符。然而，到目前为止，我的努力都是徒劳的。
myFun=function(a=1) { x=sys.call() return(as.character(x)) }
x=myFun(a=2) # here I would like to get the string "myFun(a = 2)"
我也一直在寻找打印函数调用的函数(类似于print.call)。但是我找不到它。
这里有人知道call对象是如何打印的吗？
浏览 0提问于2016-09-14得票数 5
回答已采纳
2回答
我写了下面的程序来打印矩阵的转置。但是我没有得到想要的结果。
#include <stdio.h>
#include <conio.h>
int main()
{
printf("Enter the number of rows");
int r;
scanf("%d",&r);
printf("Enter the number of columns");
int c;
scanf("%d",&c);
int x[r][c];
浏览 2提问于2017-10-10得票数 0
1回答
我维护一个依赖于反复调用deparse(control = c("keepNA", "keepInteger"))的包。control总是一样的，表达式也是不同的。deparse()似乎花了很多时间反复解释.deparseOpts()的同一组选项。
microbenchmark::microbenchmark(
a = deparse(identity, control = c("keepNA", "keepInteger")),
b = .deparseOpts(c("keepNA", "
浏览 1提问于2019-12-04得票数 9
回答已采纳
1回答
我如何在R中编写测试程序，以便它们能够很好地打印？
r、pretty-print
R中的统计测试生成列表，但是当您调用测试时，这些列表的打印提供了一个特殊的用户友好结构来帮助读者。要了解我正在讨论的内容，请考虑一个在t.test包中使用stats函数的示例。
#Run a T-test on some example data
X <- c(30, 32, 40, 28, 29, 35, 30, 34, 31, 39);
Y <- c(19, 20, 44, 45, 8, 29, 26, 59, 35, 50);
TEST <- stats::t.test(X,Y);
#Show structure of the TEST object
str(TEST
浏览 2提问于2019-05-28得票数 0
回答已采纳
11回答
腾讯云上如何自建DNS？
云服务器、DNS 解析 DNSPod、linux、centos、dns
当前腾讯云私有域VPCDNS暂时还不支持背景下，怎么在腾讯云CVM环境下构建内网解析？
实现功能：
1.支持腾讯云云环境保留域名解析如：mirrors.tencentyun.com;
2.支持用户自有业务域名内部网解析如：you.aaa.com；
3.支持访问外网域名解析如：www.qq.com；
4.支持分域名转发到不同的DNS服务器；
基础环境：
CVM：标准型SA2（请根据自身业务情况，选择样本）
操作系统：CentOS Linux版本7.6.1810（核心）
绑定：bind-9.11.4-16.P
浏览 1401提问于2021-01-27
1回答
我想从错误中提取要使用的函数的名称。所以如果我有：
mean(letters)
"P" * 5
我想提取"mean.default"和"*"。我可以从错误中得到如下调用：
capturer <- function(x){
tryCatch({
x
}, warning = function(w) {
w
}, error = function(e) {
e
})
}
capturer(mean(letters))$call
## mean.default(le
浏览 3提问于2015-10-27得票数 4
回答已采纳
2回答
是否有一种使用deparse返回带有原始分数的字符串的方法？默认行为如下所示：
> deparse(c(1/2, 2/3, 3))
[1] "c(0.5, 0.666666666666667, 3)"
期望结果"c(1/2, 2/3, 3)"
同样，清单如下：
> deparse(list("name", 1/2, 2/3))
[1] "list(\"name\", 0.5, 0.666666666666667)"
期望结果"list(\"name\", 1/2, 2/3)
浏览 1提问于2019-10-09得票数 2
回答已采纳
2回答
我有数据df，如下所示：
df <- data.frame(x = c("A", "A", "B", "B"), y = 1:4)
我有一个函数，它可以找到y按x分组的平均值。
generateVarMean <- function(df, x, y) {
mean.df <- df %>%
select(x, y) %>%
group_by(x) %>%
dplyr::summarise(variable.mean = mean(y, na.rm = TRUE))
浏览 6提问于2017-05-10得票数 2
回答已采纳
2回答
我正在尝试从一个函数的列表中提取一个元素。 ```{r} Q7.4<-函数(v1，v2){ 均值<-均值(V1) 中位数<-中位数(V1) 方差<-var(V1) 最小<-分钟(V1) 最大值<-max(V1) 变异系数<-sqrt(方差)/mean Coefficientofvariation=Coefficientofvariation) <<-list(mean=mean，meadian=median，variance=variance，minimum=minimum，maximum=maximum，my.list my.list$
浏览 12提问于2021-04-11得票数 1
回答已采纳
1回答
从函数中输出R语法
r、string、function、output
我正在教授一门统计学课程，我试图温和地向我的学生介绍R语法(具体地说，ggplot)。为此，我为许多基本命令创建了包装器函数。例如：
basic.plot.function = function(x,y, data=d){
p = ggplot(data, aes_string(x=x, y=y)) + geom_point() + geom_smooth()
print(p)
#dput(p) # this function isn't doing what I want it to
}
我希望该函数输出绘图(这就是print(p)所做的事情)，但我还希望它将
浏览 2提问于2018-01-19得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
云直播活动推荐
腾讯云开发者
