Human Cell Counts

Dataset of total number of cells in organs/systems in adult human body

(4 columns, 54 rows)

Examples

Basic Examples

Retrieve the resource:

In[1]:=
ResourceObject["Human Cell Counts"]
Out[1]=

Retrieve the default content:

In[2]:=
ResourceData["Human Cell Counts"]
Out[2]=

Visualization

Compare the cell number in different cell types:

In[3]:=
With[{data = 
   ResourceData["Human Cell Counts"][
    SortBy["MeanTotalCellNumber"], {"CellType", 
     "MeanTotalCellNumber"}]}, 
 BarChart[data[All, "MeanTotalCellNumber"], 
  ChartLabels -> 
   Placed[Normal@data[All, "CellType"], Axis, Rotate[#, 90 Degree] &],
   ScalingFunctions -> "Log", PlotTheme -> "Business"]]
Out[3]=

Compare total cell number in internal organs:

In[4]:=
organN = KeyTake[
  ResourceData["Human Cell Counts"][
   GroupBy[Interpreter["AnatomicalStructure"][#OrganSystem] &], Total,
    "MeanTotalCellNumber"], 
  EntityList@EntityClass["AnatomicalStructure", "InternalOrgans"]]
Out[4]=
In[5]:=
ImageCollage[
 Rule[organN[#], #["TypicalMorphology"]] & /@ Normal@Keys[organN], 
 Background -> White]
Out[5]=

Wolfram Research, "Human Cell Counts" from the Wolfram Data Repository. (2017) https://doi.org/10.24097/wolfram.85496.data

Source Metadata

Data Downloads