FileSystemScan을 사용한 셰익스피어 풍 언어 자료 작성: Wolfram Language 11의 신기능

FileSystemScan을 사용한 셰익스피어 풍 언어 자료 작성

이 예제에서는 셰익스피어 전 작품의 텍스트 파일을 포함하는 디렉토리를 이용합니다. 우선 FileSystemMap으로 책의 텍스트 부분만을 모아 가져오기를 실행합니다.

전체 Wolfram 언어 입력 표시하기

In[1]:=

booksdir = FileNameJoin[{$HomeDirectory, "Books", "Shakespeare"}]

In[2]:=

works = Values[
  FileSystemMap[Import, FileNameJoin[{$HomeDirectory, "Books"}], 2, 
    FileNameForms -> "*.txt"][[1]]]

Out[2]=

StringJoin을 사용하여 단일 언어 자료를 구축합니다.

In[3]:=

corpus = StringJoin[works]

Out[3]=

이제 이 언어 자료는 하나의 검색 가능한 문자열로 취급 할 수 있게 되었으므로, 고급 텍스트 처리 응용 프로그램도 간단히 사용 가능합니다. 중복과 격의 문제를 제거하면서 TextCases를 사용하여 이 작품에 어떤 나라가 참조되었는지 조사합니다.

In[4]:=

countries = 
 ToLowerCase[TextCases[corpus, "Country"]] // DeleteDuplicates

Out[4]=

전체 Wolfram 언어 입력 표시하기

In[5]:=

countries = DeleteCases[countries, "world"];

셰익스피어의 작품에 언급 된 국가의 GeoListPlot을 구축합니다.

In[6]:=

GeoListPlot[Interpreter["Country"] /@ countries]

Out[6]=