Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/73.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 如何获得章节标题后的第一句话?_R - Fatal编程技术网

R 如何获得章节标题后的第一句话?

R 如何获得章节标题后的第一句话?,r,R,我有个小问题 我的文本看起来像: A.1 skldjlsfslfjd skdlsdj sljfdkjd Hello my name is John. Blah blah blah. A.2 skldljsdlkd dkdkd adjklsdk. Hello my last name is Doe. akdjkld slkdlk ldksdl 我希望我的输出看起来像: A.1 skldjlsfslfjd skdlsdj sljfdkjd Hello my name is Jo

我有个小问题

我的文本看起来像:

A.1    skldjlsfslfjd skdlsdj sljfdkjd
Hello my name is John. Blah blah blah.
A.2    skldljsdlkd dkdkd adjklsdk.
Hello my last name is Doe. akdjkld slkdlk ldksdl
我希望我的输出看起来像:

A.1    skldjlsfslfjd skdlsdj sljfdkjd 
Hello my name is John.
A.2    skldljsdlkd dkdkd adjklsdk
Hello my last name is Doe.
我已经:

A.1    skldjlsfslfjd skdlsdj sljfdkjd

A.2    skldljsdlkd dkdkd adjklsdk

我只是很难理解下一句话。

除了示例之外,我们没有太多上下文

我猜我们知道一个标题是一个标题,因为它有a.x(a.1,a.2,等等)。您可以根据需要对A-Z或真实示例中的任何实际格式进行修改

对于其他的句子,看起来你希望所有的东西都达到第一个“.”。我使用
ifelse()
将这两个部分的逻辑组合成一行,如下所示:

text <- c("A.1    skldjlsfslfjd skdlsdj sljfdkjd.",
'Hello my name is John. Blah blah blah.',
'A.2    skldljsdlkd dkdkd adjklsdk.',
"Hello my last name is Doe. akdjkld slkdlk ldksdl.")

text <- ifelse(!grepl("A.",text) ,gsub("\\..*","",text), text)

text

它是标量字符还是矢量字符?有新行字符吗?你能
dput()
这个例子吗?你能展示你到目前为止的代码,包括加载源文本的显式方式吗?哪些部分是常量-只是
你好,我的名字是
?名称是否会包含空格或非字母数字字符?这是一个矢量字符。我目前使用的代码是grep((^[a-Z]\\\.\\d+),text,value=TRUE)“Hello my name”不一定是常量。我只是选择它作为一个随机句子,是的,这个名字可以有任何非字母数字字符和空格。
"A.1    skldjlsfslfjd skdlsdj sljfdkjd." 
"Hello my name is John"                  
"A.2    skldljsdlkd dkdkd adjklsdk."    
"Hello my last name is Doe"