gistfile1.txt

comments_and_post$rang_posta  = rep(NA, length(comments_and_post$post_id))
for (i in 1:length(comments_and_post$post_id)){
    if (!is.na(comments_and_post$id[i])) {
        comments_and_post$rang_posta[i] <- length(
            unique(
                comments_and_post$post_id[
                    comments_and_post1$post_id>comments_and_post1$post_id[i] & 
                        comments_and_post$post_owner_id == comments_and_post$post_owner_id[i] & 
                        comments_and_post$post_date.x < comments_and_post$date[i]
                    ]
            )
        )
    } 
}