A custom legend key function that draws points at 25% of their normal size
with proportionally sized legend boxes. This creates much more compact
legends while maintaining visual clarity.
     
    
    Usage
    draw_key_dag_point(data, params, size)
 
    
    Arguments
- data
- A data frame containing aesthetic information for the legend key 
- params
- Additional parameters (not currently used) 
- size
- Legend key size (not currently used) 
 
    
    Value
    A grob object for the legend key