# Galleries with netCoin package

#### Modesto Escobar, David Barrios, Carlos Prieto (University of Salamanca)

#### 2026-01-09

# Connected Image Galleries

## Description

The `netCoin` package represents and manages information from an image database with attributes that hierarchically connect them.

Components:

- Images: Images.
- Information: Table, Name, Tooltip, Information Window.
- Utilities: Image Search, Filter, Display Customization, Bar Charts.

## Examples

Load the pakcage

    library(netCoin)

A simple gallery representing finches species in Galapagos Islands

    data("finches")
    finches$species <- system.file("extdata", finches$species,
                 package="netCoin") # copy path to the species field
    finches$attribution <- c(
      "2009 - Peter Wilton",
      "2007 - putneymark",
      "2007 - putneymark",
      "2012 - Joseph C Boone",
      "2007 - putneymark",
      "2007 - putneymark",
      "2013 - Simon J. Tonge",
      "2009 - Paul McFarling, Charles Darwin Foundation",
      "2009 - Mike Comber",
      "2014 - Lip Kee",
      "2006 - User:BBODO on english wikipedia",
      "2010 - Michael Dvorak",
      "2000 - Paul McFarling, Charles Darwin Foundation"
    )
    # You can specify the column with image paths trough the 'image' parameter
    g <- gallery(finches, image="species", imageCopy="attribution",
      main="Species in Galapagos Islands", note="Data source: Sanderson (2000)")
    plot(g)

The same gallery with another theme

    g <- exhibit(finches, image="species", imageCopy="attribution",
      main="Species in Galapagos Islands", note="Data source: Sanderson (2000)")
    plot(g)

Connected image gallery

    # tree of relations between items
    tree <- data.frame(
      shape = c("circle","triangle","square"),
      color = c("circle_red|circle_green|circle_blue",
        "triangle_red|triangle_green|triangle_blue",
        "square_red|square_green|square_blue")
    )

    # specify images for items
    nodes <- list()
    nodes$shape <- data.frame(name=c("circle","triangle","square"))
    nodes$shape$image=system.file("extdata", paste0(nodes$shape$name,".svg"),
          package="netCoin")
    nodes$color <- data.frame(name=c("circle_red","circle_green","circle_blue",
        "triangle_red","triangle_green","triangle_blue",
        "square_red","square_green","square_blue"))
    nodes$color$image=system.file("extdata", paste0(nodes$color$name,".svg"),
          package="netCoin")

    # create gallery
    g <- netExhibit(tree, initialType="shape", tableformat=TRUE,
      nodes=nodes, image="image")
    plot(g)