r - 如何解析与 R 具有一致间距的对话行的电影脚本?
问题描述
'''
A stray SKATEBOARD clips her, causing her to stumble and
spill her coffee, as well as the contents of her backpack.
The young RIDER dashes over to help, trembling when he sees
who his board has hit.
RIDER
Hey -- sorry.
Cowering in fear, he attempts to scoop up her scattered
belongings.
KAT
Leave it
He persists.
KAT (continuing)
I said, leave it!
RIDER
Hey -- sorry.
''''
我正在抓取一些我想要进行文本分析的脚本。我只想从脚本中提取对话,看起来它有一定的间距。例如,我想要那行“嘿——对不起。”。我知道间距是 20,这在整个脚本中是一致的。所以我怎么才能只读那一行,其余的行间距相等?
我想说我要使用read.fwf,读取一个固定的宽度。
你们有什么感想?
我正在从这样的网址中抓取: https ://imsdb.com/scripts/10-Things-I-Hate-About-You.html
解决方案
library(tidytext)
library(tidyverse)
text <- c("PADUA HIGH SCHOOL - DAY
Welcome to Padua High School,, your typical urban-suburban
high school in Portland, Oregon. Smarties, Skids, Preppies,
Granolas. Loners, Lovers, the In and the Out Crowd rub sleep
out of their eyes and head for the main building.
PADUA HIGH PARKING LOT - DAY
KAT STRATFORD, eighteen, pretty -- but trying hard not to be
-- in a baggy granny dress and glasses, balances a cup of
coffee and a backpack as she climbs out of her battered,
baby blue '75 Dodge Dart.
A stray SKATEBOARD clips her, causing her to stumble and
spill her coffee, as well as the contents of her backpack.
The young RIDER dashes over to help, trembling when he sees
who his board has hit.
RIDER
Hey -- sorry.
Cowering in fear, he attempts to scoop up her scattered
belongings.
KAT
Leave it
He persists.
KAT (continuing)
I said, leave it!
She grabs his skateboard and uses it to SHOVE him against a
car, skateboard tip to his throat. He whimpers pitifully
and she lets him go. A path clears for her as she marches
through a pack of fearful students and SLAMS open the door,
entering school.
INT. GIRLS' ROOM - DAY
BIANCA STRATFORD, a beautiful sophomore, stands facing the
mirror, applying lipstick. Her less extraordinary, but
still cute friend, CHASTITY stands next to her.
BIANCA
Did you change your hair?
CHASTITY
No.
BIANCA
You might wanna think about it
Leave the girls' room and enter the hallway.
HALLWAY - DAY- CONTINUOUS
Bianca is immediately greeted by an admiring crowd, both
boys
and girls alike.
BOY
(adoring)
Hey, Bianca.
GIRL
Awesome shoes.
The greetings continue as Chastity remains wordless and
unaddressed by her side. Bianca smiles proudly,
acknowledging her fans.
GUIDANCE COUNSELOR'S OFFICE - DAY
CAMERON JAMES, a clean-cut, easy-going senior with an open,
farm-boy face, sits facing Miss Perky, an impossibly cheery
guidance counselor.")
names_stopwords <- c("^(rider|kat|chastity|bianca|boy|girl)")
text %>%
as_tibble() %>%
unnest_tokens(text, value, token = "lines") %>%
filter(str_detect(text, "\\s{15,}")) %>%
mutate(text = str_trim(text)) %>%
filter(!str_detect(text, names_stopwords))
输出:
# A tibble: 9 x 1
text
<chr>
1 hey -- sorry.
2 leave it
3 i said, leave it!
4 did you change your hair?
5 no.
6 you might wanna think about it
7 (adoring)
8 hey, bianca.
9 awesome shoes.
names_stopwords
您可以在向量中包含更多字符名称。
推荐阅读
- javascript - 需要使用 fetch 从(laravel api)获取数据,然后将其解析到另一个函数
- arrays - 针对异常数组检查对象字符串
- sql-server - ADODB 通过 Excel 连接到 SQL-Server
- assembly - 当您需要将参数传递给过程时, lea 对于获取变量的地址有什么用处?
- r - R 文件的文件路径影响设置断点的可能性
- javascript - d3.js 使用 selection.join 插入交替的兄弟姐妹
- javascript - 使用 Google Apps 脚本,如何替换 Google 表格模板中的文本以制作新表格?
- android - 可打包的实现
- java - Spring Boot @ConditionalOnProperty 不加载 bean
- github - 仅对某些团队禁用拉取请求通知