r
针对r语言开发领域的工程师，制作人，编辑和爱好者的问答
文章 146浏览 21逐行读取excel文件的一列
readingacolumnofanexcelfilelinebyline本问题已经有最佳答案，请猛点这里访问。我有一个excel文件，我想逐行读取一列(即第三列的前128个值)并将其保存在列表中。我编写了这段代码来读取每一行并提取值，但它不能正常工作：con<-file("D:\\\\MA\\\\excel_mix_meiningen.xls","r")datalist<-list(…如何标准化包含数字和因子变量的数据框
Howtostandardizeadataframewhichcontainsbothnumericandfactorvariables我的数据框my.data包含数值变量和因子变量。我只想标准化此数据框中的数字变量。>mydata2=data.frame(scale(my.data,center=T,scale=T))ErrorincolMeans(x,na.rm=TRUE):'x'mus…将因子转换为数据框中的数字
convertfactorstonumericindataframe我有一个非常大的数据框，其中包含2个级别的因子，级别"否"和"是"。我想将级别替换为数值，以便"No"变为0，而"Yes"变为1。我想应用一个适用于数据框的函数。一个简单的例子：>dfabcd11NoYes122NoNo333YesNo12344YesYes1255NoYes23166NoNo2177YesNo2188Yes…根据列值更改行中的值并替换特定列范围
Changevaluesinrowbasedonacolumnvalueandreplacingspecifiedcolumnrange我发现我的大部分答案是：根据列值r更改行中的值。有两个区别：我想根据分类变量的测试来替换值，并且我想指定要替换值的范围。我正在使用8600奇数行和170列的数据框。这是一个例子：-x=data.frame(c("Jan","Feb","March","April"…在 R Shiny 中更改侧边栏菜单项颜色
ChangesidebarmenuitemcolorinRShiny谁能告诉我标签名称来改变蓝线的颜色(参考ShinyDashboard中menuItem中的图像。这是改变侧边栏菜单项bg颜色的代码。.skin-blue.main-sidebar.sidebar.sidebar-menu.activea{background-color:rgb(107,194,0);color:rgb(255,2…如何将马赛克图与 xyplot 结合起来？
Howtocombineamosaicplotwithaxyplot?我正在尝试重现这个情节：它看起来像图书馆格子中的xyplot，但我找不到将马赛克图与xyplot结合起来的方法。有人知道怎么做吗？您只是在寻找vcd:::cotabplot中内置的面板功能library(vcd)data("alzheimer",package="coin")alz<-xtabs(~smoking+dise…ggplot2 y 轴刻度未显示在对数刻度上
ggplot2y-axisticksnotshowinguponalogscale我正在尝试使用ggplot2创建箱线图，但无法像ggplot2webiste的示例中那样显示刻度。这里有一些水果味道的假数据：apples<-data.frame(fruit=c(rep("apple",30)),taste=runif(30,30,50)banana<-data.frame(fruit=…get selected row in a datatable in an interactive document using Rmarkdown and shiny
getselectedrowinadatatableinaninteractivedocumentusingRmarkdownandshiny我正在使用Rmarkdown和Shiny探索在交互式文档中使用DT:datatable(我以前没有使用过datatable)。我能够创建一个绘制数据表的文档：---title:"TestDT"output:html_documentruntime:shiny…用 html url 替换所有文本 url
replacealltexturlswithhtmlurl我有一个文本文件，其中包含希望用打开到新选项卡的a标记替换的url。我正在将.txt文件转换为.md文件并需要可点击的链接。我在下面展示了(1)一个MWE，(2)期望的输出(3)我最初尝试创建一个函数(我假设这将/可能需要gsub和sprintf函数来实现)：MWE:x<-c("contenthere:http://stackover…tapply 与 FUN = function(x){} 的用法
usageoftapplywithFUN=function(x){}在我的任务中，我想按性别找到温度的平均值。我们可以通过tapply命令来做到这一点。我也不允许使用平均命令：tapply(df$temperature,df$gender,FUN=function(x){sum(x)/length(df[,1])})aggregate(df$temperature,by=list(df$gende…grepl() 和 lapply 填充缺失值
grepl()andlapplytofillmissingvalues我以以下数据为例：fruit.region<-data.frame(full=c("USredapple","bombayAsiamango","goldkiwiNewZealand"),name=c("apple","mango","kiwi"),country=c("US","Asia","NewZealand"),t…Reticulate – 在不分配给变量的情况下获取 Python 结果
Reticulate-GetPythonresultwithoutassigningtovariable如果可能的话，我想在R中打印python代码的结果(不分配给变量)。这行得通：library(reticualte)py_run_string("print(2)")2p=py_run_string("x=2")p$x2py_run_string("2")2return(py_run_strin…Statistical Model Representation with ggplot2
StatisticalModelRepresentationwithggplot2我会用一个研究案例来问我的问题，然后我会让我的问题更笼统。让我们先导入一些库并创建一些数据：require(visreg)require(ggplot2)y=c(rnorm(40,10,1),rnorm(20,11,1),rnorm(5,12,1))x=c(rep(1,40),rep(2,20),rep(3,5))d…根据数据帧的长度将数据帧分成相等的部分
Splitdataframeintoequalpartsbasedonlengthofthedataframe问题：我需要将几个不同的大型数据帧(例如50k行)分成更小的块，每个块具有相同的行数。但是，我不想为每个数据集手动设置块的大小。相反，我想要这样的代码：检查数据帧的长度并确定有多少块大约几千行的原始数据框可以分解成最小化必须丢弃的"剩余"行数这里提供的答案是相关的：Splitavector…shiny – 如何使用 ggiraph
shiny-howtouseggiraph我的数据集如下......fund,sharpe,riskabc,1.5,7def,0,5selectInput("n_breaks",label="RiskProfile:",choices=c(1,2,3,4,5,6,7,8,9,10),selected=7)#ReactiveselectedData<-reactivea<-mydata%…