Shortcuts to label files in Finder

You could make your owns, creating an Application with Automator and then assigning a Shortcut to it.

To create the Aplication just:

1. Go to /Aplications/Automator and create a new Work Flow.
2. Select Get Selected Finder Items.
3. Then select Label Finder Items, and choose the color you want to label with.
4. Save as Aplication.

Now, you could assign a shortcut to it with an application such as QuickSilver, for instance.

You could, too, create a Service in Automator, which, as Daniel points out, can get a shortcut assigned directly. This post, shows you how.

I had assigned shortcuts to scripts like this in FastScripts, but I stopped using them because getting the selection does not work reliably in 10.7 or 10.8.

try
    tell application "Finder"
        repeat with f in items of (get selection as alias list)
            try
                set label index of f to item 1 of {2, 1, 3, 6, 4, 5, 7}
            end try
        end repeat
    end tell
end try