小编jen*_*irf的帖子

假设我想计算每组中不同值的比例.例如,使用所述mtcars数据,如何计算相对数量的频率齿轮由点(自动/手动)一气呵成与dplyr？

library(dplyr)
data(mtcars)
mtcars <- tbl_df(mtcars)

# count frequency
mtcars %>%
  group_by(am, gear) %>%
  summarise(n = n())

# am gear  n
#  0    3 15 
#  0    4  4 
#  1    4  8  
#  1    5  5 

我想要实现的目标:

am gear  n rel.freq
 0    3 15      0.7894737
 0    4  4      0.2105263
 1    4  8      0.6153846
 1    5  5      0.3846154

我有一个div带有CSS伪元素的元素::before用作关闭按钮(而不是使用实际按钮).我该如何申请一个事件监听器只伪元素？

HTML

<div id="box"></div>

CSS

#box:before
{
 background-image: url(close.png);
 content: '';
 display: block; 
 height: 20px;
 position: absolute;
 top: -10px;
 right: -10px; 
 width: 20px;
}

#box
{
 height: 100px;
 width: 100px;
}

我正在尝试将数据帧上传到SQL Server表,我尝试将其分解为一个简单的SQL查询字符串.

library(RODBC)
con <- odbcDriverConnect("driver=SQL Server; server=database")

df <- data.frame(a=1:10, b=10:1, c=11:20)

values <- paste("(",df$a,",", df$b,",",df$c,")", sep="", collapse=",")

cmd <- paste("insert into MyTable values ", values)

result <- sqlQuery(con, cmd, as.is=TRUE)

..它似乎有效,但不能很好地扩展.有没有更简单的方法？

我正在寻找一个ULTRA-light框架或片段,它-webkit以与JQM或JQTouch类似的方式处理css页面转换.它们工作正常,但我不想添加几乎200kb的资源来获得一些转换.

我希望它具有以下功能:

1单个HTML-doucment中的页面到页面切换(div).

2进行"翻转"并可能进行"滑动"过渡.

有没有人见过这样的事情？

编辑:我想避免一起使用jQuery.

我正在尝试仅选择每个ID具有最高seq的行

ID  |  Seq   |  Age
-------------------
 A      1       20   
 A      2       30
 B      1       25
 B      2       32
 B      3       44
 B      4       48
 C      1       11

这似乎有效

SELECT ID, Age
FROM Persons a
WHERE Seq = (SELECT MAX(Seq) FROM Persons b WHERE a.ID = b.ID)

但这是最好的方式,唯一的方法吗？我不喜欢使用子查询,如果我不需要,我记得你可以使用一些东西,但我忘了它是什么.任何的想法？

我对切换可见性函数有一些问题,该函数对hidden元素的属性进行操作.麻烦的是,这缺乏浏览器兼容性..

function hide(e) {$(e).hidden=true;}    
function show(e) {$(e).hidden=false;}

谷歌搜索这个问题我遇到了切换style.display属性的方法,就像这样..

function toggle(e) {
document.getElementById(e).style.display = (document.getElementById(e).style.display == "none") ? "block" : "none";
}

..但这似乎不是最佳的,因为您不能拥有将显示属性设置为的通用显示/隐藏功能block.如果有问题的元素有时应该有一个inline或什么的怎么办？

例如jQuery如何解决这个问题？

我正在使用AWS数据管道服务将数据从RDS MySql数据库传输到s3然后再Redshift传入,这很好用.

但是,我也有数据存在于一个RDS Postres实例中,我想以相同的方式管道,但我很难设置jdbc连接.如果不支持,是否有解决方法？

"connectionString": "jdbc:postgresql://THE_RDS_INSTANCE:5432/THE_DB”

有没有一种方法,使dplyr挂接到一个数据库之间传输数据的新表中该数据库中,从来没有下载本地数据？

我想做一些事情:

tbl(con, "mytable") %>%
   group_by(dt) %>%
   tally() %>%
   write_to(name = "mytable_2", schema = "transformed")

我跑的时候

window.onload = function () {
   document.addEventListener("deviceready", getGeolocation);
}

function getGeolocation() {
 navigator.geolocation.getCurrentPosition( successCallback, errorCallback, {maximumAge: 0});
}

要么

function getGeolocation() {
 watchGeoMarkerProcess = navigator.geolocation.watchPosition(updateCallback, errorCallback);
}

然后

function updateCallback(position) {
   if (position.coords.accuracy < 100) {
            navigator.geolocation.clearWatch(watchGeoMarkerProcess);
   }
}

在iOS 5上使用phonegap的应用程序中,似乎卡住了,因为地理位置指示器图标保持在顶部栏中并且它永远不会消失,我认为这意味着GPS没有被关闭.此外,有时我根本没有任何坐标,抛出超时错误.

我不认为代码有任何问题,因为它作为一个webapp工作得很好.

有任何想法吗？

我有这个data.frame:

df <- data.frame(id=c('A','A','B','B','B','C'), amount=c(45,66,99,34,71,22))

id | amount 
-----------
A  |   45   
A  |   66   
B  |   99
B  |   34 
B  |   71
C  |   22

我需要扩展,以便bydata.frame中的每个组具有相同的长度(用零填充),如下所示:

id | amount 
-----------
A  |   45   
A  |   66  
A  |   0     <- added 
B  |   99
B  |   34 
B  |   71
C  |   22
C  |   0     <- added 
C  |   0     <- added 

这样做最有效的方法是什么？

注意

基于我实际的 100万行data.frame 提供的一些解决方案的基准测试我得到了:

             plyr   | data.table  |  unstack
          -----------------------------------
Elapsed: …