小编M. *_*eil的帖子
RStudio中的代码折叠:在代码中创建层次结构
我在RStudio中编写R脚本,并且我使用代码折叠很多.我发现你可以通过按cmd+ shift+ 来查看折叠的层次结构 O.这非常有用.
# to my dear love ---------------------------------------------------------
2+2
# yo man ====
x.2 = function (x) {x+2}
### I do love potatoes ####
按cmd+ shift+ 查看结果O.
我不明白这是如何工作的,因为当我编写下面的代码时,我可以创建一个没有文本的子部分,但是当它有文本时(使用# ====但不是# yo man ====).
# to my dear love ---------------------------------------------------------
2+2
# ====
# yo man ====
### I do love potatoes ####
x.2 = function (x) {x+2}
data = "here is some data"
按 …
推荐指数
解决办法
查看次数
是否可以跳过"+"运算符中的NA值？
我想在R中计算一个等式.我不想使用该函数,sum因为它返回1个值.我想要完整的值向量.
x = 1:10
y = c(21:29,NA)
x+y
[1] 22 24 26 28 30 32 34 36 38 NA
x = 1:10
y = c(21:30)
x+y
[1] 22 24 26 28 30 32 34 36 38 40
我不想要:
sum(x,y, na.rm = TRUE)
[1] 280
哪个不返回矢量.
这是一个玩具示例,但我有一个更复杂的等式,使用长度为84647个元素的多个向量.
这是我的另一个例子:
x = 1:10
y = c(21:29,NA)
z = 11:20
a = c(NA,NA,NA,30:36)
5 +2*(x+y-50)/(x+y+z+a)
[1] NA NA NA 4.388889 4.473684 4.550000 4.619048 4.681818 4.739130 NA
推荐指数
解决办法
查看次数
通过$和@在R中提取有什么区别？
我想知道R中"组件/插槽提取"(via ?Syntax)运算符$(美元符号)和@(符号)之间的区别是什么.
这是一个例子$:
yo=data.frame(c(1:10), c(rnorm(10,0,1)))
yo$c.1.10.
打印:
[1] 1 2 3 4 5 6 7 8 9 10
yo@c.1.10.
Error: trying to get slot "c.1.10." from an object (class "data.frame") that is not an S4 object
这是一个例子@:
setClass("track", representation(x="numeric", y="numeric"))
myTrack <- new("track", x = -4:4, y = exp(-4:4))
myTrack@x
打印:
[1] -4 -3 -2 -1 0 1 2 3 4
myTrack$x
Error in myTrack$x : $ operator not …推荐指数
解决办法
查看次数
用于LaTeX命令的RStudio和Sweave自动完成？
有没有办法在RStudio中激活LaTeX文档的自动完成模式？
我知道它可以用于JavaScript,HTML,CSS,Python和SQL,但是LaTeX呢？
\documentclass{article}
\begin{document}
\SweaveOpts{concordance=TRUE}
\sec
我想在这里按,tab以便它自动完成\section{}
\end{document}
推荐指数
解决办法
查看次数
xtable在顶部添加标题,在表格下添加标题
我想xtable在Rnw文档中添加标题标题.这是代码.不幸的是,我无法在表格下添加标题.我已经尝试了\ caption {}函数,但它不会打印PDF.
我见过R:xtable标题(或注释),但它不适用于从R中的lm()函数创建的表.你有什么线索吗？
<<yoman,echo=FALSE,results=tex>>=
library(xtable)
pop5lm <- lm(mpg ~ wt, data=mtcars) #my linear model
print(xtable(pop5lm,
caption = c("Estimates of linear model for father Muro CB"),
label = "tab:one", digits = c(0,2, 2, 2,3)),
table.placement = "tbp",
caption.placement = "top")
@
推荐指数
解决办法
查看次数
可以在R中编码音乐并播放吗？（Mac OS X）
我想知道是否有一种方法可以在r中编写脚本来创建音乐。像编码程序（SuperCollider或更少的编码，但仍然是Pure Data）一样，我想知道是否有一种方法可以在R中生成声音。
实际上，我知道这如何使用R播放生日音乐？，这非常好。但是我想做和弦和多乐器的创作。可能吗？
有没有比“生日快乐”链接更简单的方法来播放R音乐？
推荐指数
解决办法
查看次数
如何编码侧边栏折叠闪亮只显示图标
如果您熟悉闪亮的网站,您会注意到当您按下按钮折叠侧边栏时,它会显示更大的图标(但不会完全隐藏侧边栏.
你知道如何编写这个代码吗？
我听说这个包shinyBS可能是有用的或者是自助的东西,但我不明白它是什么.
折叠前:
<body id="app" class="app ng-scope buffer-pinterest" data-custom-page="" data-off-canvas-nav="" data-ng-controller="AppCtrl">
这个(见突出显示的文字):
崩溃后:
<body id="app" class="app ng-scope buffer-pinterest nav-collapsed-min" data-custom-page="" data-off-canvas-nav="" data-ng-controller="AppCtrl">
推荐指数
解决办法
查看次数
折叠菜单闪亮但在闪亮应用程序中剪切标题
我创建了一个闪亮的应用程序，就像谷歌表单一样。它正在工作，但是当我使用页面顶部的按钮显示/隐藏侧边栏时，它会更改页面顶部的标题。我不希望这种事发生。
问题似乎就在这里：
runjs('
var el2 = document.querySelector(".skin-green");
el2.className = "skin-green sidebar-mini";
')# this is creating a sidebar mini, but it wraps up the title to trim it... I don't want that!
style = "position: fixed; overflow: visible;",即使在该功能下添加后sidebarMenu，仍然不起作用。
我该如何解决这个问题？部分解决方案似乎在这里。
这是完整的代码：
# Apps
library(shiny)
library(shinydashboard)
library(shinyBS)
library(shinyjs)
# Fields definition -------------------------------------------------------
# Define the fields we want to save from the form
fields <- c("name", # the order here will be the same as the one that …推荐指数
解决办法
查看次数
如何在 R 中对条形图的订单数据进行“分组”？
我正在研究生物信息学，我需要输出一个包含祖先结果的图表（条形图）。通常，这些图表是通过将人群分组在一起来绘制的。完成的方法是，您只需绘制不同假定人群（此处为 4）的 Q 分数（下面的数据）的条形图。
问题是我用来ord = tbl[order(tbl$V1,tbl$V2,tbl$V3),]对我的值进行排序。这样我就看到一些条形图没有聚集在正确的群体中（参见图中应与第一组聚集在一起的橙色条形图）。因此，我想知道如何按颜色（代表人口）对条形进行聚类。
有办法解决这个问题吗？
barplotgeno <- function(tbl, # To plot the Q scores (ancestry).
col = c("#FF3030", # nice colors
"#9ACD31",
"#1D90FF",
"#FF8001"),
pdf = TRUE,
pdf.path.name = "~/Desktop/Stacked_barplot.pdf") {
ord = tbl[order(tbl$V1,tbl$V2,tbl$V3),]
if(pdf) {
pdf(pdf.path.name, width = 11, height = 8.5)
bp = barplot(t(as.matrix(ord[,1:dim(ord)[2]-1])),
space = c(0.2),#space = c(0),# Space between the bars
col=col, #rainbow(4),
xlab="Individual #",
ylab="Ancestry", xaxt="n",
border=NA, main = "Stacked barplot from ADMIXTURE analysis")
labs <- row.names(ord)
text(cex=0.5, x=bp+1, y=-0.03, …推荐指数
解决办法
查看次数
如何在ggplot图中绘制y和x轴的刻度和数字？
我正在使用ggplot绘制图表.这是ggplot包的例子:
df <- data.frame(
gp = factor(rep(letters[1:3], each = 10)),
y = rnorm(30)
)
ds <- plyr::ddply(df, "gp", plyr::summarise, mean = mean(y), sd = sd(y))
ggplot(df, aes(gp, y)) +
geom_point() +
geom_point(data = ds, aes(y = mean), colour = 'red', size = 3) +
theme( axis.text.y = element_text(hjust = 3),
axis.text.x = element_text(vjust = 5),
axis.ticks.length = unit(-0.25,
"cm"), # length of the axis ticks
)
这是输出:
如您所见,刻度线在内部但是y轴的数字非常对齐,而X轴上的数字与刻度线重叠.
所以最后我想要图中的刻度和ggplot图中的轴标签(数字).我听说,我们应该使用保证金的工具,但我不知道如何指定利润率里面的图表.
编辑:您可以看到使用保证金功能时,数字未正确对齐...
推荐指数
解决办法
查看次数