小编Hen*_*ndy的帖子

我正在使用.el文件中的sunrise-commander命令的emacs组织模式创建一个表(想要制作备忘单).该列表如下所示:

/, j .......... go to directory
p, n .......... move cursor up/down
M-p, M-n ...... move cursor up/down in passive pane
^, J .......... go to parent directory
...

我想用这种格式将它变成一个组织模式表:

| /, j     | go to directory                     |
| p, n     | move cursor up/down                 |
| M-p, M-n | move cursor up/down in passive pane |
| ^, J     | go to parent directory              |
...

Org会照顾间距; 我只需要"|命令|解释|"

我无法使用垂直斜线替换多个句点.我目前的尝试是这样的:

cat in.org | sed -e 's/[.]*/|/g' > out.org
cat …

在ggplot2中摆弄点大小选项之后,我注意到在aes()参数的内部和外部都传递了大小的示例geom_point().从Hadley网站上的`geom_point()页面:

p <- ggplot(mtcars, aes(wt, mpg))

# passed inside
p + geom_point(aes(size = qsec)) 
p + geom_point(aes(size = qsec)) + scale_area() 

# passed outside
p + geom_point(colour = "red", size = 3) 
p + geom_point(colour = "grey50", size = 4)

我发现这些传说的表现方式不同.当aes()我进入内部时,我可以看到一个传奇,尽管我需要设置休息,即使我只有两个不同大小的点; 否则,我会得到一个五个点的范围,即使只使用了2个.

而且,通过的尺寸不可理解; 我需要指定使用的相对大小range=c(min,max),并将中断设置为仅两个大小而不是默认的五个.

如果我超越尺寸aes(),尺寸似乎很荣幸,但我无法在我的情节中获得传奇; 我想scale_size,scale_size_continuous和scale_size_manual没有成功.

从geom_point()页面上可以看到:

以下美学可与geom_point一起使用.使用aes函数将美学映射到数据中的变量:geom_point(aes(x = var))

...

Scales控制变量如何映射到美学,并在每个美学之后列出.

[此处列出所有美学选项(形状,颜色,大小等)]

从那以后,仍然不完全清楚如何选择(这个问题的大小,但这应该对其他美学有意义)内外aes()影响结果.

我有一个包含产品原型测试数据的数据集.并非所有测试都在所有批次上运行,并且并非所有测试都使用相同的样本大小执行.为了说明,请考虑这种情况:

> test <- data.frame(name = rep(c("A", "B", "C"), each = 4),
  var1 = rep(c(1:3, NA), 3),
  var2 = 1:12,
  var3 = c(rep(NA, 4), 1:8))

> test
   name var1 var2 var3
1     A    1    1   NA
2     A    2    2   NA
3     A    3    3   NA
4     A   NA    4   NA
5     B    1    5    1
6     B    2    6    2
7     B    3    7    3
8     B   NA    8    4
9     C    1    9    5
10    C    2   10 …

现有问题询问有关在以下位置标记单个geom_abline()内容的问题ggplot2：

• R ggplot2：用数值标记 y 轴上的水平线
• R ggplot2：标记水平线而不将标签与系列关联
• 将标签添加到 abline ggplot2 [重复]

这些都没有达到我想要向散点图添加多条参考线的用例，目的是允许对斜率范围内的点进行轻松分类。这是该图的可重现示例：

library(ggplot2)

set.seed(123)
df <- data.frame(
  x = runif(100, 0, 1),
  y = runif(100, 0, 1))

lines <- data.frame(
  intercept = rep(0, 5),
  slope = c(0.1, 0.25, 0.5, 1, 2))

p <- ggplot(df, aes(x = x, y = y)) +
  geom_point() +
  geom_abline(aes(intercept = intercept, slope = slope),
              linetype = "dashed", data = lines)
p

由于我发现无法通过其他问题以编程方式执行此操作，因此我通过数据框“缩放”手动方法，使用反复试验来找出合理的标签位置。

labels <- data.frame(
  x = c(rep(1, 3), 0.95, 0.47), …

我正在优化一些不同的模型,其中一个是使用该caret软件包的radialSVM .我正在创建一个调整网格,准备循环循环以找到用于模型的最佳参数.

有一点非常有用的是某种不同的增量序列.例如,我想从小步骤递增的小参数值开始.我走的越大,我可以采取更大的步骤.我发现小参数确实会改变模型,所以我想更仔细地探索它们.

比如,通过当前步骤的某个乘数来增加序列是很棒的x <- x+5*x.这可能是已经存在的东西(如创造性地使用seq()),还是我需要使用循环？

相关: R:使用ggplot2在LOESS曲线中标记斜率变化
_{此问题试图找到最小值/最大值y(斜率= 0); 我想找到最小值/最大值}

对于背景,我正在进行一些不同的建模技术,并且我认为在迭代神经网络结果时我可能会使用斜率来衡量随机种子产生的最佳模型.

获取数据:

nn <- read.csv("http://pastebin.com/raw.php?i=6SSCb3QR", header=T)
rbf <- read.csv("http://pastebin.com/raw.php?i=hfmY1g46", header=T)

举个例子,这是我的数据的训练神经网络的结果:

library(ggplot2)
ggplot(nn, aes(x=x, y=y, colour=factor(group))) + 
geom_point() + stat_smooth(method="loess", se=F)

同样,这是一个rbf模型:

ggplot(rbf, aes(x=x, y=y, colour=factor(group))) + 
geom_point() + stat_smooth(method="loess", se=F)

RBF模型更好地拟合数据,并且与变量的背景知识更加一致.我想过尝试计算拟合线的最小/最大斜率,以便用陡峭的悬崖修剪出NN,而不是更柔和的曲线.识别交叉线将是另一种修剪方式,但这是一个不同的问题.

谢谢你的任何建议.

注意:我ggplot2在这里使用并相应地标记了问题,但这并不意味着它无法用其他功能完成.我只是想直观地说明我为什么要这样做.我想一个循环可以用y ₁ -y ₀/x ₁ -x ₀来做到这一点,但也许有更好的方法.

我有一个闪亮的应用程序，我在其中定义了一个基于滑块的对象并data.frame从中创建了一个对象。这用于创建一个图，我想在其下方包含一个汇总表。我的问题是必须在反应对象内定义绘图才能根据滑块进行更新，但是我发现当我尝试访问该对象以在不同反应对象内打印摘要时，没有找到它。

我不想两次运行相同的计算代码只是为了将对象放入另一个反应对象中。我的两个初步想法：

• 我尝试save(object, file = "...")在第一个反应对象内部使用，然后load(file = "...")在第二个内部使用，但它没有更新。
• 我想在我的反应式plotOutput定义之外定义我的对象，但我很确定当用户输入改变时它不会更新；它只会保留初始input对象默认设置的值。

好吧，继续尝试后一个想法，它甚至没有那么远：

• 我把它放在之前shinyServer(...)，它无法生成数据，因为我的调用依赖于input它input在那时不知道。
• 我把它放在之后shinyServer(...)但之前renderPlot(...)尝试为所有输出对象创建一个“全局可用”对象，它责骂我试图做一些input在反应函数之外使用的东西。

这里有一个例子来说明，修改自 Shiny 的“Hello Shiny！” 例子：

用户界面

library(shiny)

# Define UI for application that plots random distributions 
shinyUI(pageWithSidebar(

  # Application title
  headerPanel("Hello Shiny!"),

  # Sidebar with a slider input for number of observations
  sidebarPanel(
    sliderInput("obs", 
                "Number of observations:", 
                min = 1,
                max = …

我试图安装ramnathv 的slidify软件包，但对以下错误感到惊讶：

# install.packages("devtools")
library(devtools)
install_github("slidify","ramnathv")
Installing github repo slidify/master from ramnathv
Downloading slidify.zip from https://github.com/ramnathv/slidify/archive/master.zip
Installing package from /tmp/RtmpOFEJuD/slidify.zip
Error in unzip(src, exdir = target, unzip = getOption("unzip")) : 
  'unzip' must be a single character string

我之前使用相同的 Arch Linux 设置和他们的 R 包在另一个系统上安装它没有问题，当然它是 R 的早期版本（3.0.0 或 3.0.1）。

在谷歌搜索错误，它来自这个位zip.R：

unzip <-
    function(zipfile, files = NULL, list = FALSE, overwrite = TRUE,
             junkpaths = FALSE, exdir = ".", unzip = "internal",
             setTimes = FALSE)
{
    if(identical(unzip, …

我有一个 .csv 文件，其中包含 00xxxxx 形式的帐户代码，我需要它们保持这种状态，以便与使用此格式帐户代码的其他程序一起使用。我只是在编写 R 脚本来协调周五的帐户费用，并发誓这as.is = T对我有用。现在，它似乎不是。以下是一些示例数据：

test <- data.frame(col1 = c("apple", "banana", "carrot"),
                   col2 = c(100, 200, 300),
                   col3 = c("00234", "00345", "00456"))

我的write.table策略：

write.table(test, file = "C:/path/test.csv", quote = T,
            sep=",", row.names = F)

删除旧的data.frame并重新阅读：

rm(test)
test <- read.csv("C:/path/test.csv")
test

    col1 col2 col3
1  apple  100  234
2 banana  200  345
3 carrot  300  456

如果不清楚，它应该看起来像data.frame我们创建的原始文件：

test
    col1 col2  col3
1  apple  100 00234 …

我对MathJax和 的行为很奇怪shiny。我已经修改了包01_hello中的示例以shiny通过. 我所做的修改如下：.RmdincludeMarkdown()ui.R

# Show a plot of the generated distribution
mainPanel(
  plotOutput("distPlot"),
  includeMarkdown("mathjax-test.Rmd")
)

我的测试文件（）的内容mathjax-test.Rmd如下：

## mathjax test

Document used as is in .Rmd format.

Here's an inline equation with dollar signs: $a + b = c$

Here's an inline equation with slashes/parentheses: \(a + b = c\)

Display format wth double dollar signs:

$$a + b = c$$

Display format with slashes/square brackets:

\[
a …