| <html> | |
| <head> | |
| <title>Topic Clouds</title> | |
| <meta http-equiv="Content-Type" content="text/html;charset=utf-8"/> | |
| <script src="http://d3js.org/d3.v2.min.js?2.10.0"></script> | |
| <script type="text/javascript" src="d3.layout.cloud.js"></script> | |
| </head> | |
| <body> | |
| <script> |
| # get data | |
| setwd("C:/Downloads/html") # this folder has only the HTML files | |
| html <- list.files() | |
| # load packages | |
| library(tm) | |
| library(RCurl) | |
| library(XML) | |
| # get some code from github to convert HTML to text | |
| writeChar(con="htmlToText.R", (getURL(ssl.verifypeer = FALSE, "https://raw.github.com/tonybreyal/Blog-Reference-Functions/master/R/htmlToText/htmlToText.R"))) |
| ' this script was posted at http://stackoverflow.com/questions/15554099/write-each-excel-row-to-new-txt-file-with-columna-as-file-name/15665756#15665756 | |
| 'and is presented here for readers of the Historian's Macroscope | |
| Sub SaveRowsAsTXT() | |
| Dim wb As Excel.Workbook, wbNew As Excel.Workbook | |
| Dim wsSource As Excel.Worksheet, wsTemp As Excel.Worksheet | |
| Dim r As Long, c As Long | |
| Dim filePath As String | |
| Dim fileName As String |
| @echo off | |
| setlocal EnableDelayedExpansion | |
| if exist result.csv del result.csv | |
| for %%f in (*.txt) do ( | |
| set i=0 | |
| for /F "delims=" %%l in (%%f) do ( | |
| set /A i+=1 | |
| set line!i!=%%l | |
| ) | |
| echo %%f, !line1!, !line2!, >> result.csv |
| # Set working directory | |
| dir <- "C:\\" # adjust to suit | |
| setwd(dir) | |
| # configure variables and filenames for MALLET | |
| ## here using MALLET's built-in example data and | |
| ## variables from http://programminghistorian.org/lessons/topic-modeling-and-mallet | |
| # folder containing txt files for MALLET to work on | |
| importdir <- "C:\\mallet-2.0.7\\sample-data\\web\\en" |
| #' Making many text files from a single Excel file | |
| #' | |
| #' Convert a single Excel file (one text per row) into | |
| #' separate text files. A function in R. Requires Java Runtime | |
| #' Environment (JRE), version 6.0 or higher | |
| #' | |
| #' To use this function for the first time run: | |
| #' install.packages("devtools") | |
| #' then thereafter you just need to load the function | |
| #' fom github like so: |
| <!DOCTYPE html> | |
| <meta charset="utf-8"> | |
| <style> | |
| .node { | |
| font: 300 11px "Helvetica Neue", Helvetica, Arial, sans-serif; | |
| fill: #bbb; | |
| } | |
| .node:hover { |
The series hover interactivity uses the technique from lgrammel seen here: http://bl.ocks.org/1963983
It isn't necessarily a tooltip, but data is displayed by inverting the x-axis value into a date, and mapping the date to the corresponding data value for the series.
| #this is adapted from Ben Marwick's Day of Archaeology 2013 analysis | |
| #this is for an example of using Mimno's wrapper for Mallet | |
| #we're using the sample data that comes bundeled when you download MALLET from | |
| #http://mallet.cs.umass.edu/download.php | |
| #we've assumed that, on Mac, you've put MALLET that you unzipped from Umass into a folder | |
| #under [user], ie "shawngraham/mallet-2.0.7" | |
| #on windows, use the full path "C:>\\mallet-2.0.7\\" | |
| #insert the path to your documents between the quotation marks | |
| #and windows users be sure to use \\ instead of a single \ |
| #' Making many text files from a single Excel file | |
| #' | |
| #' Convert a single Excel file (one text per row) into | |
| #' separate text files. A function in R. Requires Java Runtime | |
| #' Environment (JRE), version 6.0 or higher | |
| #' | |
| #' To use this function for the first time run: | |
| #' install.packages("devtools") | |
| #' then thereafter you just need to load the function | |
| #' fom github like so: |