小编Jef*_*son的帖子

ggplot错误:类似的数据图表,为什么不再存在?

我正在用ggplot绘制一些数据.但是,我不理解我所获得的错误与数据略有不同,而不是我能成功绘制的数据.例如,此数据图表成功:

to_graph <- structure(list(Teacher = c("BS", "BS", "FA"
), Level = structure(c(2L, 1L, 1L), .Label = c("BE", "AE", "ME", 
"EE"), class = "factor"), Count = c(2L, 25L, 28L)), .Names = c("Teacher", 
"Level", "Count"), row.names = c(NA, 3L), class = "data.frame")

ggplot(data=to_graph, aes(x=Teacher, y=Count, fill=Level), ordered=TRUE) +
       geom_bar(aes(fill = Level), position = 'fill') +
       scale_y_continuous("",formatter="percent") +
       scale_fill_manual(values = c("#FF0000", "#FFFF00","#00CC00", "#0000FF")) +
       opts(axis.text.x=theme_text(angle=45)) + 
       opts(title = "Score Distribution")
Run Code Online (Sandbox Code Playgroud)

但这不是:

to_graph <- structure(list(School = c(84351L, 84384L, 84385L, 84386L, 84387L, 
84388L, 84389L, 84397L, …
Run Code Online (Sandbox Code Playgroud)

r ggplot2

4
推荐指数
1
解决办法
3228
查看次数

合并在R中产生意外结果

我想合并:

to_graph <- structure(list(Teacher = c("BS", "BS", "FA"
), Level = structure(c(2L, 1L, 1L), .Label = c("BE", "AE", "ME", 
"EE"), class = "factor"), Count = c(2L, 25L, 28L)), .Names = c("Teacher", 
"Level", "Count"), row.names = c(NA, 3L), class = "data.frame")
Run Code Online (Sandbox Code Playgroud)

graph_avg <- structure(list(Teacher = structure(c(1L, 1L, 2L), .Label = c("BS", 
"FA"), class = "factor"), Count.Fraction = c(0.0740740740740741, 
0.925925925925926, 1)), .Names = c("Teacher", "Count.Fraction"
), row.names = c(NA, -3L), class = "data.frame")
Run Code Online (Sandbox Code Playgroud)

merge(to_graph, graph_avg, by="Teacher"),但不是得到我期望的(3行),我得到:

  Teacher Level Count …
Run Code Online (Sandbox Code Playgroud)

r data-management

4
推荐指数
1
解决办法
259
查看次数

Ruby哈希键作为符号不起作用

我很困惑为什么键的符号版本在以下示例中不起作用.如上所示,我使用的是Ruby 1.9.3.这是一个更大的应用程序的一部分,但已经能够缩小到这个问题.

先感谢您!

1.9.3-p194 :002 > json_sample = "{\"this\":\"notworking\"}"
=> "{\"this\":\"notworking\"}"
1.9.3-p194 :003 > test_hash = JSON.parse json_sample
=> {"this"=>"notworking"}
1.9.3-p194 :004 > test_hash["this"]
=> "notworking"
1.9.3-p194 :005 > test_hash[:this]
=> nil

ruby

4
推荐指数
2
解决办法
1255
查看次数

ggplot的"快速"散点图传奇?

可能重复:
ggplot2:在图表上添加回归线方程和R2

我用散点图绘制数据

ggplot(work.rootsfnp.h1, aes(x=fnpltrfac, y=rootsscore, group=1)) + 
  geom_smooth(method=lm, se = F) + geom_point(shape=1)
Run Code Online (Sandbox Code Playgroud)

是否有一种"快速"方式来添加基本图例,其中包括最佳拟合线的公式以及相关系数?

r ggplot2

3
推荐指数
2
解决办法
3934
查看次数

用Perl和Ruby编写应用程序?

我正在开发一个主要是Ruby on Rails的项目.但是,我需要在这个项目中生成和解析Excel文件(我知道,我知道......),所以我一直在使用Perl的Spreadsheet :: WriteExcel和Spreadsheet :: ParseExcel.但是,将这种Perl与更大的Ruby on Rails应用程序结合使用的最佳方法是什么?用反引号调用Perl脚本是另一种解决方法吗?对我来说这感觉有点哈哈,但如果这是唯一的(或最好的)方式,那就是我要做的.我想伸出手,看看是否有其他人有一些建议或建议.

谢谢!

perl ruby-on-rails

3
推荐指数
1
解决办法
139
查看次数

R问题:ifelse产生意外结果

我是R的新手,在使用ifelse()函数时会得到意想不到的结果.这是一个例子.下面是我正在使用的数据框的子集.在最后一个命令之后,为什么示例$ Points列包含12而不是2?我已经尝试了这个示例$ Value的许多不同值,结果总是比我预期的多10.

例:

example
     Question StudentID SchoolID Value Worth Answer Points
2926       18    101290    84386     2     2     Co      0
2927       18    100878    84386     2     2     Co      0
2928       18    100895    84386     1     5     Co      0
2929       18    100913    84386     2     2     Co      0
2930       18    100884    84386     2     2     Co      0
example$Points <- ifelse(example$Answer == "Co", example$Value, example$Points)
example
     Question StudentID SchoolID Value Worth Answer Points
2926       18    101290    84386     2     2     Co     12
2927       18    100878    84386     2 …
Run Code Online (Sandbox Code Playgroud)

if-statement r dataframe

2
推荐指数
1
解决办法
992
查看次数

PHP邮件功能有时会起作用

我正在编写一个需要通过PHP邮件功能发送电子邮件的脚本.如下所示,它在向gmail帐户发送电子邮件时起作用,但在我的域中不是帐户.我们正在运行Exchange服务器.截至目前,电子邮件是从_www @ server发送的.有没有人知道php邮件和Exchange的问题(或者甚至是以下划线和Exchange开头的电子邮件地址?)?或许这里还有另一个问题?无论如何,邮件功能都将返回true.

谢谢,

杰夫

$user = $_POST['email'];

$to = "someone@domain.org";

$subject = "Request to Reset EduTube Password";

$body = "Thank you " . $_POST['email'] . " for using the EduTube Password Reset System.\n\n";
$body .= "Please click the following link, or copy & paste it into your browser to reset your password.\n\n";
$body .= "http://testing.domain.org/reset.php?user=" . $user;

$headers = "From: someone@domain.org";

$from = "EduTube Password Reset System";

if (mail($to, $subject, $body, $headers)){

echo "Your email has been sent.  Please …
Run Code Online (Sandbox Code Playgroud)

php email exchange-server

2
推荐指数
1
解决办法
4829
查看次数

将数据框子集化为列表

我有一个数据框,我想根据schoolid变量的唯一值进行子集化.然后将这些评分记录到列表中,因此列表的每个成员都是数据框的子集.我显然知道如何针对具体的schoolid值,一次一个地做这个,但是如何在不知道schoolid可能出现哪些值的情况下系统地做到这一点?

谢谢您的帮助!杰夫

structure(list(schoolid = c(84351L, 84351L, 84351L, 84351L, 84351L, 
84351L, 84351L, 84351L, 84351L, 84351L, 84351L, 84351L, 84351L, 
84351L, 84351L, 84384L, 84384L, 84384L, 84384L, 84384L, 84384L, 
84384L, 84384L, 84384L, 84384L, 84384L, 84384L, 84384L, 84384L, 
84384L, 84385L, 84385L, 84385L, 84385L, 84385L, 84385L, 84385L, 
84385L, 84385L, 84385L, 84385L, 84385L, 84385L, 84385L, 84385L, 
84386L, 84386L, 84386L, 84386L, 84386L, 84386L, 84386L, 84386L, 
84386L, 84386L, 84386L, 84386L, 84386L, 84386L, 84386L, 84387L, 
84387L, 84387L, 84387L, 84387L, 84387L, 84387L, 84387L, 84387L, 
84388L, 84388L, 84388L, 84388L, 84388L, 84388L, 84388L, …
Run Code Online (Sandbox Code Playgroud)

r

2
推荐指数
1
解决办法
1509
查看次数

bash 脚本中单引号的问题

我正在尝试从 bash 脚本运行命令。命令本身有单引号,但我无法让它们工作,因为单引号内有需要扩展的变量。这是 bash 脚本:

#!/bin/bash

if [ "$2" == "PracSci" ];
then
    echo "Running tabulate.science.r"
    R CMD BATCH --no-save --no-restore --slave '--args $1 $2 $3' tabulate.science.r /dev/tty
else
    echo "Running tabulate.r"
    R CMD BATCH --no-save --no-restore --slave '--args $1 $2 $3' tabulate.r /dev/tty
fi
Run Code Online (Sandbox Code Playgroud)

./script.sh 2 Vocab May12例如,当运行时,命令本身在没有变量值的情况下运行。

如何在仍然运行命令的同时扩展变量?

为了清楚起见,我尝试运行的命令是:( R CMD BATCH --no-save --no-restore --slave '--args $1 $2 $3' tabulate.r /dev/tty包括命令中的单引号)。

谢谢!

bash

2
推荐指数
1
解决办法
6136
查看次数

Python的String类count()方法

我正在阅读Mark Pilgrim's Dive in Python 3并且现在已经盯着这个大约一个小时了:http://getpython3.com/diveintopython3/strings.html#common-string-methods

>>> s = '''Finished files are the re-
... sult of years of scientif-
... ic study combined with the
... experience of years.'''
>>> s.lower().count('f')
6
Run Code Online (Sandbox Code Playgroud)

在给出的多行字符串示例中,我不明白为什么s.lower().count('f')返回6而不是3.我已经确认它确实返回6.当然,Pilgrim甚至在他的笔记中指出它实际上是6,但是没有解释原因.

有人可以帮我吗?谢谢!

python

1
推荐指数
2
解决办法
579
查看次数