Skip to main content

Plotting data

Use Ctrl/CMD + P to call command palette and pick upload ASCII

Download original notebook

Once you finished, an special symbol will appear. You can work with it if it was a array of data compressed to a size of single icon.

Example data*

(*VB[*)(Get[FileNameJoin[{".iconized", "iconized-dd15.wl"}]])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRAeH5DwTM7Py6xKdcvMSXXKr8gU0OBhAADq+Qq5"*)(*]VB*)

Now you can copy and paste this symbol

ListLinePlot[(*VB[*)(Get[FileNameJoin[{".iconized", "iconized-dd15.wl"}]])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRAeH5DwTM7Py6xKdcvMSXXKr8gU0OBhAADq+Qq5"*)(*]VB*), PlotRange->Full, ImageSize->500]
(*VB[*)(FrontEndRef["1d8f3ab5-8dc2-4914-a7f1-f02da8ed0d59"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKG6ZYpBknJpnqWqQkG+maWBqa6CaapxnqphkYpSRapKYYpJhaAgCK+BYD"*)(*]VB*)

TIP: try to pan and zoom into the plot using mouse

You can also manipulate the data, cut it or crop using Wolfram Language native tools for Lists

ListLinePlot[
  Select[(*VB[*)(Get[FileNameJoin[{".iconized", "iconized-dd15.wl"}]])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRAeH5DwTM7Py6xKdcvMSXXKr8gU0OBhAADq+Qq5"*)(*]VB*), (#[[1]] > 3000 && #[[1]] < 4000)&]
, PlotRange->Full, ImageSize->500] 
(*VB[*)(FrontEndRef["e4015242-1c6d-4aed-b9f5-799c6651958a"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKp5oYGJoamRjpGiabpeiaJKam6CZZppnqmltaJpuZmRpamlokAgB+GBVR"*)(*]VB*)

Preview data as a table​

For whom likes Origin

(*VB[*)(Get[FileNameJoin[{".iconized", "iconized-dd15.wl"}]])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRAeH5DwTM7Py6xKdcvMSXXKr8gU0OBhAADq+Qq5"*)(*]VB*) // TableView 
(*VB[*)(Dataset[Join@@Notebook`Kernel`Inputs`Private`store$2804301,TypeSystem`Vector[TypeSystem`Tuple[{TypeSystem`Atom[Real], TypeSystem`Atom[Real]}], 8298],<||>])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKG1kap6WYGaXompilGuqaGBsZ6loYJpnoWpgaJhuamyYaJSZaAgB4ABUM"*)(*]VB*)