Libraries and Data

library(readxl)

## Warning: package 'readxl' was built under R version 4.3.3

sheets <- excel_sheets("./ALT-COMPARISON.xlsx")
print(sheets)

##  [1] "Preferred Alt"                   "Alt Analysis"                   
##  [3] "OpenAI \"gpt-4-0125-preview\""   "OpenAI \"gpt-4-0613\""          
##  [5] "OpenAI \"gpt-3.5-turbo-0125\""   "PrivateGPT “mistral-7b-instruct"
##  [7] "Preferred Description"           "Description Analysis"           
##  [9] "Blip-2"                          "Blip"                           
## [11] "Blip-Local"                      "Llava-13b"                      
## [13] "VertexAI"                        "MiniGPT4"                       
## [15] "Clip-Interrogator"               "Img2Prompt"                     
## [17] "Clip_Prefix_Caption"             "Image-Captioning-With-Visual-At"
## [19] "Clip-Caption-Reward"

Alt-Refinement

for (i in 3:6) {
    df <- read_excel("./ALT-COMPARISON.xlsx", sheet = i)
    # windows()
    boxplot(df$`refineDesc-Time`, main = paste(sheets[i], "Description Refinement Time"), xlab = "Time (Seconds)", col = "orange", horizontal = TRUE)
}

## New names:
## New names:
## • `` -> `...15`

## New names:
## • `` -> `...15`

## New names:
## • `` -> `...15`

Description

for (i in 9:19) {
    df <- read_excel("./ALT-COMPARISON.xlsx", sheet = i)
    # windows()
    boxplot(df$`genDesc-Time`, main = paste(sheets[i], "Description Generation Time"), xlab = "Time (Seconds)", col = "orange", horizontal = TRUE)
}

## New names:
## New names:
## • `` -> `...8`

## New names:
## • `` -> `...8`

## New names:
## • `` -> `...8`

## New names:
## • `` -> `...8`

## New names:
## • `` -> `...8`

## New names:
## • `` -> `...8`

## New names:
## • `` -> `...8`

## New names:
## • `` -> `...8`

## New names:
## • `` -> `...8`

## New names:
## • `` -> `...8`