我正在尝试：(1) 估计多个模型，其中只有因变量发生变化 (2) 使用 Stargazer 包将结果制表
以下代码有效，但我必须为每个模型重复一行代码：
library(stargazer)
data(mtcars)
reg1 <- lm(mpg ~ am + gear + carb, data=mtcars)
reg2 <- lm(cyl ~ am + gear + carb, data=mtcars)
reg3 <- lm(disp ~ am + gear + carb, data=mtcars)
stargazer(reg1, reg2, reg3,
title="Regression Results", type="text",
df=FALSE, digits=3)
您可以看到（修剪后的）输出具有正确的因变量标题（mpg、cyl、disp）：
Regression Results
==================================================
Dependent variable:
------------------------------
mpg cyl disp
(1) (2) (3)
--------------------------------------------------
am 3.545* -0.176 -40.223
(1.897) (0.615) (48.081)
如果我使用 lapply 和 paste，它最终会改变 stargazer 中因变量的标题：
dependents <- c('mpg', 'cyl', …我遇到了几行用于重新格式化文本文件的代码，如下所示
paste - - - - < file.fq | cut -f 1,2 | ...
我无法弄清楚- - -粘贴命令的作用。破折号的数量有何影响？
我有一个从另一个站点复制的足够长的文本，我必须确保当用户单击按钮时，文本被获取并复制到变量中value。
我尝试使用getData，但它不起作用。
你能帮我个忙吗？
链接：codesandbox
代码：
import React, { useState, useEffect, useRef } from "react";
import Box from "@mui/material/Box";
import TextField from "@mui/material/TextField";
import Button from "@mui/material/Button";
export default function MultilineTextFields() {
const [value, setValue] = React.useState("");
const ref = useRef(null);
return (
<Box
component="form"
sx={{
"& .MuiTextField-root": { m: 1, width: "25ch" }
}}
noValidate
autoComplete="off"
>
<Button
variant="contained"
color="primary"
onClick={(e) => {
let paste = (e.clipboardData || window.clipboardData).getData("Text");
setValue(paste);
}}
>
Paste
</Button>
<div> …首先，我对我不完美的英语感到非常抱歉；）
我从应用程序复制数据，我想在我的应用程序中点击按钮，它会复制数据并将其粘贴到小部件文本上
预先感谢您的帮助。
组我将数据从SQL粘贴到Excel,看起来Excel试图通过将我的一些数字转换为日期来读取我的想法.即一个数字是2-2131,当我将它粘贴到excel时,它显示2月31日甚至2-3291 wnats为2月-61
停止它EXCEL!
这让我发疯,我似乎找不到一个简单的方法.我尝试"粘贴特殊"作为文本,它仍然格式化.如果我创建一个连接并使用查询,我可以让它工作,但我只是希望能够复制粘贴数据用于测试目的.
任何人都可以轻松解决我的头痛问题？
提前致谢!
我想创建27个矩阵,其中包含2列和可变数量的行.我可以写出27行代码,如下所示:
x1 = cbind(rep(1,34), rnorm(34))
x2 = cbind(rep(1,36), rnorm(36))
....
x27 = cbind(rep(1,k), rnorm(k))
但它必须有更好的方法来做到这一点.我想到了一个循环,像这样:
aux = c(34, 36, ..., k) # auxiliar variable with number of rows for each matrix
for (i in 1:27) paste("x",i, sep="") = cbind(rep(1,aux[i]), rnorm(aux[i]))
但是,它不起作用.我觉得这是一项简单的任务,但我没有想法.
有帮助吗？
ps.:我想到了一个数组,但我无法使用它.也许一份清单可以完成这项工作,我不知道.
如果Stackoverflow是正确的网站,不确定.
我在mac ox 10.6.7上使用了碳emacs 22.0.971.和MS字12.2.8.我在MS word中有一些文本,我想复制并粘贴到emacs中.我在单词中执行正常程序cmd C,在emacs中执行Cy,但是文本不会在emacs中复制,而是看起来传递了复制文本的位图.可以用一个Cd删除的一个大图像.我可以解决它:在mac ox'文本编辑器中粘贴文本.但对我来说这是新的emacs行为.有没有办法强制emacs将剪贴板粘贴为纯文本？
问候,Jeroen.
我想将变量粘贴到我用于子集数据的逻辑表达式中,但是子集函数在粘贴时不会将它们看作列名(ot不带引号).
我有一个名为col1,col2等列的数据框.我想为colx <0.05的行进行子集化
这个工作:
subsetdata<-subset(dataframe, col1<0.05)
subsetdata<-subset(dataframe, col2<0.05)
这不起作用:
for (k in 1:2){
subsetdata<-subset(dataframe, paste("col",k,sep="")<0.05)
}
for (k in 1:2){
subsetdata<-subset(dataframe, noquote(paste("col",k,sep=""))<0.05)
}
我找不到答案; 有什么建议？
我对Rs paste函数与数据帧的行和列选择结合使用有一个特殊的问题。似乎paste总是在它的输入参数周围加上as.numeric()或做类似的工作。
这是我在做什么的代码片段：
paste(df[1, c("entry1", "entry2")], collapse="; ")
这将传递数据帧的第一行，其中df包含列"entry1"和的列条目"entry2"。我假设这样的输出：
"Auffuellung; Holozaen"
相反，我收到的是传递的数据帧条目的级联数等效项（不是索引）：
"1; 5"
调用str(df[1, c("entry1", "entry2")])我的真实数据库会得到以下输出（德语，不要奇怪;））：
'data.frame': 1 obs. of 2 variables:
$ Hauptbestandteile: Factor w/ 38 levels "Auffuellung",..: 1
$ Chronografie : Factor w/ 18 levels "Devon","Famennium",..: 5
我在这种情况下做错了什么？到现在为止，我从未遇到过paste-function 这样的问题，而且我也从未期望过类似的事情会发生。因此，如何解决该问题并获得正确的串联字符串而不是等效串联数字的输出？
先感谢您！
我在以下数据框中有两列,每列根据特定顺序具有级别:
head(x1)
soa congruency
1 200 9
2 102 2
3 68 1
4 68 9
5 34 9
6 68 9
head(levels(x1$soa))
[1] "34" "68" "102" "200"
head(levels(x1$congruency))
[1] "1" "2" "9
我希望能够粘贴两列,以便新变量的级别为:
"34_1""34_2""34_9""68_1""68_2""68_9"等......
但是,如果我执行以下操作:
x2 <- paste(x1$soa, x1$congruency, sep = "_")
我得到的水平是:
x2 <- factor(x2)
class(x2)
[1] "factor"
levels(x2)
[1] "102_1" "102_2" "102_9" "200_1" "200_2" "200_9" "34_1" "34_2" "34_9"
[10] "68_1" "68_2" "68_9"
我知道在粘贴列后我可以更改级别的顺序.但是我希望能够对列进行排序,以便在粘贴它之后,我不需要更改级别的顺序.有没有办法可以做到这一点？例如,我尝试使用order()函数命令x1(我正确地做了),然后粘贴两列,但我仍然得到相同的级别顺序,这不是我想要的顺序.
任何帮助将不胜感激,
阿亚拉