Fiction versus reality in sex

Fiction versus reality in sex

友情提示:本文内容少儿不宜。

昨天发现一个非常有趣的网站,Orgasms Sound Library,可能不认识第一个单词,但是你查查就知道了。为了不那么扎眼,本文将会使用Orgasms代替它的中文。

Orgasms Sound Library网站搜集了1465人的Orgasms声音,方法和样本如下:

最后通过这项研究还发布了一项研究报告。

FiccionVsRealidad_BI_en.pdf

没有中文的,我们就凑活看看英语的吧:

START OF SEXUAL RELATIONS

  1. 64.7%的男性和67.8%的女性在15~20岁之间有了第一次;
  2. 12.8%的男性和24.2%的女性一生只有一个伴侣;
  3. 5.9%的男性和22.7%的女性第一次是和别人一起(羡慕哎);
  4. 38.2%的男性和36.5%的女性每周都可以爽。

FREQUENCY OF SEXUAL PRACTICES

  1. 24%的男性和6.8%的女性一直都有想爽的感觉;
  2. 24.3%的男性和5.5%的女性每周都看小电影;
  3. 18.7%的男性和5.6的女性曾有过3P or >3P(看来多半是男女男男了);
  4. 21.3%的男性和33.1%的女性曾玩过制服。

SATISFACTION WITH ORGASMS

  1. 5.2%的男性和22.5%的女性从未体验过Orgasms
  2. 19.3%的男性和30.1%的女性更喜欢自娱自乐;
  3. 59.97%的男性和64.6%的女性认为自己现在的性生活比年轻的时候更和谐;
  4. 13.3%的男性和16.8%的女性不确定哪种新体验让自己更爽。

剩下的我翻译不下去了。

当然如果我只是想翻译这个报告,就不会写这篇博客了,我是想把这些Orgasms的声音爬下来。

经过一番分析,我发现这个json文件里面有着所有Orgasms声音的下载链接,下面用R处理以下:

R R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
library(jsonlite)
df <- read_json("https://orgasmsoundlibrary.com/data/bijoux.json")
da = data.frame(id = NA,
tipo = NA,
id_color = NA,
id_preset = NA,
count_visit = NA,
count_share = NA,
count_like = NA,
title = NA,
audio = NA,
duration = NA,
filetype = NA,
wave = NA,
wave_gris = NA,
art = NA,
thumb_art = NA,
download = NA,
rrss_img = NA,
tags = NA)
tempda = da
for(i in 1:length(df$Orgasmos)){
tempda$id = df$Orgasmos[[i]]$id
tempda$tipo = df$Orgasmos[[i]]$tipo
tempda$id_color = df$Orgasmos[[i]]$id_color
tempda$id_preset = df$Orgasmos[[i]]$id_preset
tempda$count_visit = df$Orgasmos[[i]]$count_visit
tempda$count_share = df$Orgasmos[[i]]$count_share
tempda$count_like = df$Orgasmos[[i]]$count_like
tempda$title = df$Orgasmos[[i]]$title
tempda$audio = df$Orgasmos[[i]]$audio
tempda$duration = df$Orgasmos[[i]]$duration
tempda$filetype = df$Orgasmos[[i]]$filetype
tempda$wave = df$Orgasmos[[i]]$wave
tempda$wave_gris = df$Orgasmos[[i]]$wave_gris
tempda$art = df$Orgasmos[[i]]$art
tempda$thumb_art = df$Orgasmos[[i]]$thumb_art
tempda$download = df$Orgasmos[[i]]$download
tempda$rrss_img = df$Orgasmos[[i]]$rrss_img
temptags = ""
for(j in 1:length(df$Orgasmos[[i]]$tags)){
temptags = paste0(df$Orgasmos[[i]]$tags[[j]], ", ", temptags)
}
tempda$tags = temptags
da = rbind(da, tempda)
}; rm(tempda); rm(i); da = subset(da, !is.na(da$id)); rm(j); rm(temptags); rm(df)

suffix = "https://orgasmsoundlibrary.com/"
da$audio = paste0("https://orgasmsoundlibrary.com/", da$audio)
da$wave = paste0("https://orgasmsoundlibrary.com/", da$wave)
da$wave_gris = paste0("https://orgasmsoundlibrary.com/", da$wave_gris)
da$art = paste0("https://orgasmsoundlibrary.com/", da$art)
da$thumb_art = paste0("https://orgasmsoundlibrary.com/", da$thumb_art)
da$download = paste0("https://orgasmsoundlibrary.com/", da$download)
da$rrss_img = paste0("https://orgasmsoundlibrary.com/", da$rrss_img)

再导出为csv文件以方便以后用:
Orgasms.csv

audio列即为音频链接:
如下你想下载第一个:

R
1
download.file(da$audio[1], paste0(da$title[1], ".", da$filetype[1]))

而下载全部呢:

R
1
2
3
for(i in 1:length(da[,1])){
download.file(da$audio[i], paste0(da$title[i], ".", da$filetype[i]))
}

这个数据框有一列是tag,是音频的标签,我们可以画个词云图看看这些标签:

R
1
2
3
4
5
6
7
8
9
library(tidytext)
df <- da %>%
unnest_tokens(tag, tags, token = stringr::str_split, pattern = ", ")
df <- df$tag %>% as.data.frame()
df <- subset(df, df$. != "")
names(df) <- c("word")
df <- df %>% count(word, sort = T)
library(wordcloud2)
wordcloud2(df)

标签用的最多的竟然是。。。clitoris。。。

还有这个最受大家喜欢的声音(一定要带耳机!!!):

下载:
MASTURBATION IMPULSIVE
MUY INTENSO

# R

评论

Your browser is out-of-date!

Update your browser to view this website correctly. Update my browser now

×